Viết chương trình nhập vào mảng một chiều các số nguyên, sô lương phân tử tùy ý. Xuất mảng vừa nhập, nhập vào phân tử K. Tính tổng các phần tử chua hết cho K. Từ đó suy ra các phân tử bằng k

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.