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

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

program CountMultiplesOf5;

var
N, i, num, count: Integer;

begin
count := 0;

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

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

end;

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

end.