Question

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

Answer 1

===== 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.