Написать программу, которая вводит массив из N целых чисел и выводит на экран элементы, кратные числу K. Протестировать программу на следующих исходныхданных: а) k=3 Массив: 2 6 -9 4 5 12 -15 б) k=4 Массив: 9 0 8 124 -16 11 19
const n=10; var a:array [1..n] of integer; i,k:integer; begin for i:=1 to n do begin write ('A[',i,'] = ');readln(a); end; write ('K = ');readln(k); for i:=1 to n do if a mod k = 0 then write (a,' '); writeln; readln; end.