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

Question

Информатика

Селифан

23 сентября, 01:06

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

+2

Ответы (1)

Знаете ответ на вопрос?

Поликсения · Answer 1

const

N = 10;

var

a: array [1 ... N] of integer;

i, K: integer;

begin

writeln ('Введите число K') ;

readln (K) ;

for i: = 1 to N do

begin

writeln ('Введите целое число') ;

readln (a[i]) ;

end;

writeln ('Числа, кратные числу ', K, ':') ;

for i: = 1 to N do

if a[i] mod K = 0 then writeln (a[i]) ;

end.