Program qtruong; Uses crt; Var i, n:integer; D:array[1..100000] of longint; Begin Clrscr; Write('Nhap n = '); readln(n); For i:=1 to n do Begin Write('D[',i,']=');
Readln(D[i]);
End; For i:=1 to n do if D[i] mod 2 = 0 then writeln('Cac so chia het cho 2 la: ',D[i]); For i:=1 to n do if D[i] mod 3 = 0 then writeln('Cac so chia het cho 3 la: ',D[i]); For i:=1 to n do if D[i] mod 5 = 0 then writeln('Cac so chia het cho 5 la: ',D[i]); Readln End.
