uses crt; var n,b,d,i:longint; a:array[1..100000]of longint; begin clrscr; write('n,b=');readln(n,b); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); if b mod a[i]=0 then inc(d); end; writeln(d); readln end.
n, b = map(int,input("Nhập n,b: ").split(' ')) print("Nhập mảng: ",end=' ') a = [int(n) for n in input().split()] for i in range(n) : for j in range(a[i]): if a[i]%b == 0 : print(a[i],end=' ') break