Напишите программу, которая вводит массив из N целых чисел и выводит на экран элементы, кратные числу K. Протестировать программу на следующих исходных данных:
а) k=3 Массив: 2 6 -9 4 5 12 -15
б) k=4 Массив: 9 0 8 124 -16 11 19
а) k=3 Массив: 2 6 -9 4 5 12 -15
б) k=4 Массив: 9 0 8 124 -16 11 19
More Questions From This User See All
Answers & Comments
Verified answer
Beginvar ar := readarrinteger(readinteger('Введите n:'));
var k := readinteger('Введите k:');
ar.Where(x -> x mod k = 0).print;
end.