cho dãy A gồm N số nguyên a1,a2…an và khai k . đêm số lượng k trong dãy ( bt kiểu mảng) A) đếm số lượng khóa k trong A B ) tính tổng các số chia hết

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,k,dk,sk,sc: longint;
Begin
        Clrscr;
        Write(‘Nhap n,k: ‘); Readln(n,k);
        dk:=0; sk:=0; sc:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] = k then inc(dk);
                If A[i] mod k = 0 then sk:=sk+A[i];
                If A[i] mod 2 = 0 then inc(sc);
        End;
        Writeln(‘a) ‘,dk);
        Writeln(‘b) ‘,sk);
        Write(‘c) ‘,sc);
        Readln
End.