Question

Utilizatorul introduce de la tastatură numere întregi pozitive, separate prin acționarea tastei <ENTER >. Sfârșitul secvenței de numere e indicat prin introducerea numărului 0. Scrieți un program care afișează pe ecran :
a) suma și media aritmetică a numerelor pare ;
b) suma și media aritmetică a numerelor impare;
VĂ ROG MULT, AJUTAȚI-MĂ!❤️​

Answer 1

Răspuns:

program SumaMedia;

var num, sumapare, sumaimp, nrpare, nrimp:integer;

   mediapare, mediaimp:real;

begin

 writeln('introduceti numere naturale pozitive');

 writeln('introducerea lui 0 este STOP');

 sumapare:=0; sumaimp:=0;

 read(num);

 while num<>0 do

   begin

     if num mod 2=0 then begin inc(sumapare,num); inc(nrpare); end

     else begin inc(sumaimp,num); inc(nrimp); end;

     read(num);

   end;

 writeln('a) Suma numerelor pare = ', sumapare);

 mediapare:=sumapare/nrpare;

 writeln('   Media aritmetica a numerelor pare = ',mediapare);

 writeln('b) Suma numerelor impare = ', sumaimp);

 mediaimp:=sumaimp/nrimp;

 writeln('   Media aritmetica a numerelor impare = ',mediaimp);

end.

Explicație: