Написать программу на паскале, которая вводит массив из N целых случайных чисел, лежащих в диапазоне от 10 до 99 и выводит на экран элементы, кратные числу K.

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

program Main;

const
N = 10;
K = 5;

var
i: integer;
arr: array[1..N] of integer;

begin
randomize;

// Ввод массива
for i := 1 to N do
begin
arr[i] := random(90) + 10; // Генерация случайного числа от 10 до 99
end;

// Вывод элементов, кратных K
writeln('Массив из ', N, ' элементов:');
for i := 1 to N do
begin
write(arr[i], ' ');

end;

end.