Đáp án: Bạn tham khảo chương trình này nhé

Giải thích các bước giải

program vd;
uses crt;
var  a:array[1..1000] of Integer ;
     n, i, T:Integer;
begin
  clrscr;
  WriteLn('Nhap so phan tu cua mang');readln(n);
  writeln('Nhap cac phan tu');
  i:=1;
  while i<=n do
  begin
    ReadLn(a[i]);
    i:=i+1;
  end;
  T:=0;
  for i:=1 to n do
  if a[i] mod 3 =0 then T:=T+a[i];
  writeln('Tong cac so chia het cho 3 la:',T);
  readln;
end.

program phuongt;

uses crt;

  var X: array[1..500] of integer;

        n, i, s: integer;

begin

           clrscr;

           write('Nhap n = '); readln(n);

           i:=1; s:=0;

           while i<=n do

           begin

                      write('X[', i, '] = '); readln(X[i]);

                      if X[i] mod 3 = 0 then s:=s+X[i];

                      i:=i+1;

           end;

           write('Tong = ', s);

           readln

end.