Question

Elaborati un program care citeste tabelul de la [1..n],n<30 si calculati media aritmetica a numerelor maxime de pe locurile impare..

Answer 1

întreg n, i
citește n
pentru i <--- 1, n execută
            dacă n<30 atunci
     scrie i

Media aritmetică:
program Medie_Aritmetică;
var_vector; array [1..30] of integer;
    max_len, k: byte;
    medie: word
begin
max_len:=0;
write ('Media aritmetica');
readIn(max_len);
for k:1 to max_lan do begin
    write('Elementul de pe pozitia ',k,' (vector[',k,']) = ');
readIn(vector[k]);
      end;
medie:=0
       for k:=1 to max_len do
       medie := medie + vector[k];
  writeIn ('Media elementelor acestui vector este:', medie div max_len);
end.
vector reprezintă șiruri de numere (întregi), max_len lungimea sa, iar medie este o variabilă folosită la calcularea mediei. Variabila k este folosită ca și contor pentru bucla for.
Asta ar fi soluția mea. Mult succes!