Предмет: Информатика, автор: petrovav7878

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

Ответы

Автор ответа: BobbyFresnel
0

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

Похожие вопросы
Предмет: Алгебра, автор: urazovak9gmailcom
Предмет: Информатика, автор: PetyhPoimeniPetya