Даны целые положительные числа. ввод осуществляется - вопрос №10501282 от 1110200 25.06.2022 13:01

Question

Информатика: Даны целые положительные числа. ввод осуществляется до тех пор, пока не будет введён 0. найти сумму и среднее арифметическое введённых чисел

1110200 · Answer

PascalABC.NET

begin

var s, n, p: integer;

s := 0;

n := 0;

repeat

Read(p);

if p = 0 then

break;

s += p;

n += 1

until False;

Write('Сумма = ', s, ', ср.арифм = ', s/n)

end.