Question

calculati media aritmetica a elementelor impare din sir in pascal​

Answer 1

program MediaAritmImpare;

var n, num, i, suma, contor:integer;

   media:real;

begin

 write('n='); read(n);

 writeln('Introdu ',n,' numere intregi');

 suma:=0; contor:=0;

 for i:=1 to n do

   begin

     read(num);

     if num mod 2=1 then

        begin

           contor:=contor+1;

           suma:=suma+num;

        end;

   end;

 if contor=0 then writeln('Nu exista impare...')

 else

   begin

        media:=suma/contor;

        writeln('Media aritmetica a imparelor = ', media);

   end;

end.