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ă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.