Cho dãy số nguyên dương gồm N số và một số nguyên dương k. A1, A2, An Bạn hãy lập trình đếm xem có bao nhiêu số dư khác nhau được tạo ra khi chia lần lượt các phần tử trong dãy A cho K. Input: - Dòng đầu là hai số nguyên N, K (N, K<=10^5) - Các dòng tiếp theo: dòng thứ i là số nguyên Ai (Ai <10^12) Output: - Gồm một số duy nhất là đáp án tìm được. Ví dụ input 4 5 3 9 6 8 output 3 Link:://ntucoder.net/Problem/Details/1176

uses    crt;
var     a,f: array[0..1000007] of longint;
        n,k,i,d: longint;
begin
        clrscr;
        readln(n,k);
        for i:= 1 to n do
                begin
                        read(a[i]);
                        f[a[i] mod k] := 1;
                end;
        for i:= 1 to n do
                if f[a[i] mod k] <> 0 then
                        begin
                                inc(d);
                                f[a[i] mod k] := 0;
                        end;
        writeln(d);
        readln
end.