Làm sao để tính tổng các số chẵn mà chia hết cho 3 của mảng Viết chương trình luôn nha

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.