program kiemtrak;

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

      n,i,k,d:integer;

      s:longint;

begin

clrscr;

write('Nhap so luong phan tu cua day');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY'); 

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

 end;

writeln('Day vua nhap la');

for i:=1 to n do

 write(A[i]:4);

writeln;

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

s:=0;  d:=0;

for i:=1 to n do

 begin

  if A[i] mod k=0 then s:=s+A[i];

  if A[i]=k then d:=d+1;

 end;

writeln('Tong cac phan tu chia het cho ',k,' la: ',s);

write('Trong day co ',d,' phan tu bang ',k);

readln

end.

uses crt;
var n,i,k,s,d:integer;
a,c:array[0..1000] of integer;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']=');
                readln(a[i]);
        end;
        write('Mang vua nhap:');
        for i:=1 to n do write(a[i],' ');
        writeln;
        write('Nhap K:'); readln(k);
        s:=0;      d:=0;
        for i:=1 to n do
        begin
                if a[i] mod k=0 then s:=s+a[i];
                if a[i]=k then
                begin
                        inc(d);
                        c[d]:=i;
                end;
        end;
        writeln('Tong cac phan tu chia het cho K la:',s);
        write('Vi tri cac phan tu = K la:');
        for i:=1 to d do write(c[i],' ');
        readln
END.

Chúc bạn học tốt.

Cho mình xin câu trả lời hay nhất.