Написать программу ввода целых чисел до тех пор, - вопрос №1554423 от vipsab333 09.10.2022 18:22

Question

Информатика: Написать программу ввода целых чисел до тех пор, пока не будет введен ноль, посчитать сумму введеных чисел и их среднее арифметическое. !

vipsab333 · Answer

var sum,n,temp:integer;

begin

sum:=0;

n:=0;

readln(temp);

while(temp<>0) do begin

inc(n);

sum:=sum+temp;

readln(temp);

end;

writeln('Sum = ',sum,'; Ave = ',sum/n)

end.