Даны целые положительные числа. ввод осуществляется - вопрос №10500714 от diaweeti551 25.04.2020 11:10

Question

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

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