Cho dãy số nguyên A1,...An (N<= 100 ) và số tự nhiên K. Hãy lập trình +) nhập N , dãy A1,...An và K +) Tính và đưa ra màn hình tổng các số chia hết cho K có trong dãy

uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<=100) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln('tong cac so chia het cho ',k,' trong day la: ',t);
end
else writeln('vui long nhap lai n');
readln;
end.

program ct;

uses crt;

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

      i,n,k:integer;

      S:longint;

begin clrscr;

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

   for i:=1 to n do

     begin

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

     end;

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

   for i:=1 to n do

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

   write('Tong cac so chia het cho k la: ',S);

readln;

end.

Học tốt!