Elaborați un program care citește de la tastatură n numere și afișează pe ecran:
a) suma și media aritmetică a numerilor citite;
b) suma și media aritmetică a numerelor pozitive;
c) suma și media aritmetică a numerelor negative.
Coroana de AUR și PUNCTAJ MAXIMAAAAAAAL !
Răspunsuri la întrebare
Răspuns:
a) var
i, n: integer;
a, s: real;
begin
write('Numarul de numere : ');
readln(n);
s := 0;
for i := 1 to n do
begin
write('Enter numar ');
readln(a);
s := s + a;
end;
writeln('Suma ', s:7:2);
writeln('Media aritmetica', s / n:7:2);
end.
b) var
i, n: integer;
a, s: real;
begin
write('Numarul de numere : ');
readln(n);
s := 0;
for i := 1 to n do
begin
write('Enter numar ');
readln(a);
if ( a>=0 ) then
s := s + a;
end;
writeln('Suma ', s:7:2);
writeln('Media aritmetica', s / n:7:2);
end.
c) var
i, n: integer;
a, s: real;
begin
write('Numarul de numere : ');
readln(n);
s := 0;
for i := 1 to n do
begin
write('Enter numar ');
readln(a);
if ( a<=0 ) then
s := s + a;
end;
writeln('Suma ', s:7:2);
writeln('Media aritmetica', s / n:7:2);
end.