Страница 163 §3.5 номер 7, ГДЗ по информатике за 8 класс к учебнику Босовой

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

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.