Написать программу, которая вводит массив из 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[i]);
end;
write (K = );readln(k);
for i:=1 to n do
if a[i] mod k = 0 then write (a[i], );
writeln;
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
