uses crt; var n,k,i,r,t:longint; a:array[1..100000]of longint; begin clrscr; write('n,k= ');readln(n,k); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); if a[i]=k then inc(r); if a[i] mod k=0 then inc(t); end; writeln('Co ',r,' phan tu bang ',k); writeln('Co ',t,' phan tu chia het cho ',k); readln end.
