С клавиатуры вводятся целые числа. Окончание ввода – число ноль. Ноль используется только для указания окончания ввода и в остальных расчётах не участвует. Подсчитать среднее арифметическое тех отрицательных чисел, которые оканчиваются на цифру «5». Учесть, что таких чисел может не быть. PascalABC

Предыдущий
вопрос Следующий
вопрос

program AverageNegativeEndingFive
va
num, sum, count: integer
average: real;

begi
sum := 0
count := 0;

repea
write('Введите число: ')
readln(num);

until num = 0;

if count > 0 the
begi
average := sum / count
writeln('Среднее арифметическое отрицательных чисел, оканчивающихся на 5: ', average:0:2)
en
els
writeln('Отрицательных чисел, оканчивающихся на 5, не было введено.')
end.