Цикл с параметром.Pascale.Нужно написать программу.Определить количество чисел, кратных 5, среди N чисел, заданных случайным образом в диапозоне от -50 до 50.

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

program CountMultiplesOf5;

va
N, i, num, count: Integer;

begi
count := 0;

// Ввод количества чисел
write('Введите количество чисел N: ')
readln(N);

// Генерация N чисел и подсчет чисел, кратных
for i := 1 to N d
begi
num := random(101) - 50; // Генерация числа от -50 до 5
writeln('Сгенерированное число: ', num);

end;

writeln('Количество чисел, кратных 5: ', count);

end.