8класс
Страница 163 §3.5 номер 7, ГДЗ по информатике за 8 класс к учебнику Босовой
Номер 7. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы и среднего арифметического введённых положительных чисел. Используйте оператор repeat.
program z7;
var
s, x, k: integer;
sr: real;
begin
s := 0;
k := 0;
repeat
write('Введи целое число');
readln(x);
k := k + 1;
s := s + x
until x = 0;
sr := s / (k - 1);
writeln('Сумма = ', s, ', среднее арифметическое = ', sr)
end.
