Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и подсчет суммы и среднего арифметического введенных положительных чисел. используйте оператор repeat.

283

406

Посмотреть ответы 2

Ответы на вопрос:

данииил4

Информатика

4,4(73 оценок)

Var date, number, summa : integer; avarage : real; begin date : = 1; summa : = 0; number : = 0; avarage : = 0; repeat readln(date); if (date < > 0) then begin number : = number + 1; end; summa : = summa + date; until (date = 0); avarage : = summa / number; writeln('summa = ', summa); writeln('srednee znachenie = ', avarage: 2: 3); readln; end.