Question

Информатика,пожалуйста,SOS!
Программировать желательно на паскале

Answer 1

Var n,x,i:integer;
a:array of integer;
begin
readln(n,x);
SetLength(a,n);
for i:=0 to n-1 do read(a[i]);
readln;
for i:=0 to n-1 do 
 if a[i] mod x=0 then write(a[i],' ');
writeln;
end.

Пример:
5 2
9 7 4 1 4
4 4