Pentru un tablou de numere intregi calculati si afisati
1 suma tuturor elementelor
2 media aritmetica a elementelor
Răspunsuri la întrebare
Răspuns de
0
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.
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.
dorincrasnajon:
nare nici un sens ceai scris
scrie normal
programu de la inceput pina la coada
Tu macar incerci programul, inainte ca sa spui ca nare sens?
Alte întrebări interesante
Ed. tehnologică,
8 ani în urmă
Evaluare Națională: Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Limba română,
9 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă