Написать программу в паскале которая будет вводить целые числа до 0, подсчитать среднее арифметическое этих чисел

Question

Толюся

13 апреля, 13:35

+5

Ответы (1)

Знаете ответ?

Зинаида · Answer 1

Var a, n, sum: integer;

begin

sum:=0;

n:=0;

readln (a) ;

while a0 do

begin

sum:=sum+a;

n:=n+1;

end;

writeln (sum/n) ;

end.