Question

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

Answer 1

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: