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

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

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

begin
sum := 0;
count := 0;

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

until num = 0;

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