👤
Dorincrasnajon
a fost răspuns

Pentru un tablou de numere intregi calculati si afisati
1 suma tuturor elementelor
2 media aritmetica a elementelor

Răspuns :

var a:array of integer;
n,i,sum:integer;

begin
read(n);
setlength(a,n);
writeln;

for i:=0 to n-1 do begin
read(a[i]);
sum+=a[i];
end;

writeln;
writeln('Suma: ',sum,' Media: ',sum/n);
end.

Alte intrebari