Question

Se dă un șir de cu n elemente. Sa se calculeze media aritmetică a nr pare și media aritmetică a nr impare

Answer 1

Media aritmetica a numerelor pare:

var n,i,a,k:integer;

   s:real;

begin

write('Enter numarul de elemente=');

readln(n);

writeln('Enter ',n,' numere');

k:=0;

s:=0;

for i:=1 to n do

begin

 readln(a);

 if a mod 2=0 then

  begin

   s:=s+a;

   k:=k+1

  end;

end;

if k=0 then write('Numere pare nu sunt')

else

begin

 s:=s/k;

 write('Media aritmetica a numerelor=',s:0:2);

end;

end.

Media aritmetica a numerelor impare:

var i,sum,k: integer;

begin

    sum:=0;

    k:=0;

    writeln('Enter numere. 0 - sfarsitul');

    repeat

         read(i);

         if i mod 2=1 then begin

            sum:=sum+i;

            inc(k);

         end;

    until i=0;

    writeln;

    writeln('Media aritmetica a numerelor impare: ',sum/k:5:3);

end.