Răspuns :
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:
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!