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

клэш4 клэш4    1   15.06.2019 14:50    0

Ответы
Макс111111м Макс111111м  12.07.2020 18:16
Var a,n,sum: integer;
begin
sum:=0;
n:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
n:=n+1;
end;
writeln(sum/n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика