Даны целые положительные числа. ввод осуществляется - вопрос №010500939 от mastermax217 20.01.2023 22:55

Question

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

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