👤

Elaboraţi un program Pascal care citeşte de la tastieră un ţir de numere întregi pînă la întîlnirea numărului “0” şi afisează la ecran, în rînduri aparte suma şi media aritmetica a elementelor din acest şir. * DAU COROANA

Răspuns :

program brainly;

var suma, n:integer;

MA:real;

begin

suma:=0;

MA:=0;

readln(n);

while (n<>0) do begin

suma:=suma+n;

MA:=MA+1;

readln(n);

end;

Writeln('S=', suma);

MA:=suma/MA;

Writeln('MA=',MA:2:2);

end.

Rezultat:

Vezi imaginea HOWARDAX