Написать программу ввода целых чисел до тех пор, - вопрос №1554648 от Eldhei 24.08.2022 07:20

Question

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

Eldhei · 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.