Даны целые положительные числа. ввод осуществляется - вопрос №10501114 от dfdfdfdfdfdfdffffff 12.09.2020 17:26

Question

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

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