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 cho k trong dãy a
C ) đếm số lượng số chẵn trong dãy a
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 cho k trong dãy a
C ) đếm số lượng số chẵn trong dãy a
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.