î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!
