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

Question

Есфирь

15 ноября, 06:52

+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.