помогите, пожалуйста. Смысл таков, нужно посчитать среднее арифметическое положительных чисел(которые мы вводим), программу можно изменять, добавлять новые переменные. Добавить тот оператор нужно после оператора с уcловием где n>0
More Questions From This User See All
Answers & Comments
Verified answer
Varn, 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.