Răspunsuri

Cel mai inteligent răspuns!
2014-10-09T22:15:09+03:00
Î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!
3 4 3