Question

помогите, пожалуйста. Смысл таков, нужно посчитать среднее арифметическое положительных чисел(которые мы вводим), программу можно изменять, добавлять новые переменные. Добавить тот оператор нужно после оператора с уcловием где n>0

Answer 1

var
    n, k, s: integer;

begin
    s := 0;
    k := 0;
    repeat
        write('Введите целое число = ');
        readln(n);
        if n > 0 then begin
            k := k + 1;
            s := s + n;
        end
    until n = 0;
    writeln('Среднее арифметическое = ', s / k);
end.