program ct;

uses crt;

var A:array[1..1000] of integer;

    i,n,k,d1,d2:integer;

    S1,S2:longint;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

   write('Nhap so k: '); readln(k);

      S1:=0; S2:=0;

   for i:=1 to n do

      if A[i] mod k=0 then

         begin

           inc(d1);

           S1:=S1+A[i];

         end

      else 

         begin

           inc(d2);

           S2:=S2+A[i];

         end;

   writeln('Co ',d1,' so chia het cho ',k);

   writeln('Tong la: ',S1);

   writeln('Co ',d2,' so khong chia het cho ',k);

   writeln('Tong la: ',S2);

readln;

end.

Học tốt!

Uses crt;

var a:array[1..100] of integer;

k,t,m,n,d,i: integer;

begin

clrscr;

writeln('Nhap so phan tu mang:'); readln(n);

for i:= 1 to n do begin

writeln('nhap so thu',i,':'); readln(a[i]); end;

writeln('Nhap k='); readln(k);

for i:= 1 to n do

if a[i] mod k = 0 then begin s:=s+a[i]; d:=d+1; end

else t:=t+a[i]; m:=m+1;

writeln('Co',d,'so chia het cho k va tong la:',s);

writeln('Co ',m,' so khong chia het cho k va tong la:',t);

Readln;

end.