Ta chỉ cần truy vết đến từng phần tử và kiểm tra điều kiện, nếu thỏa mãn điều kiện thì tính tổng.

program tinh_tong;

uses crt;

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

      n,i,t:integer;

begin

     clrscr;

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

     for i:=1 to n do

           begin

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

           end;

     t:=0;

     for i:=1 to n do

           if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];

     write('Tong cac so chan chia het cho 3 la: ',t);

     readln;

end.

program chan_chia_3;

uses crt;

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

      n,i,t:integer;

begin

     clrscr;

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

     t:=0;

     for i:=1 to n do

           begin

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

                if (A[i] mod 2=0) and (A[i] mod 3=0) then t:=t+A[i];

           end;

     write('Tong cac so chan chia het cho 3 la: ',t);

     readln;

end.