Cách 1: Dùng mảng:

program tong_chiahet_3;

uses crt;

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

      n,i,t:integer;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

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

                     if A[i] mod 3=0 then t:=t+A[i];

              end;

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

       readln;

end.

Cách 2: Dùng số:

program tong_chiahet_3;

uses crt;

var n,i,t,a:integer;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(a);

                     if a mod 3=0 then t:=t+a;

              end;

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

       readln;

end.

Điều kiện chính mình đưa vào vòng for nhập để dể hiểu, ngắn hơn.

C1: Dùng mảng:

uses crt;
var n,s,i:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('Nhap n=');readln(n); 
   s:=0;
   for i:=1 to n Do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(A[i]);
         if a[i] mod 3=0 then inc(s,a[i]); 
      end;
   writeln('Tong cac so chia het cho 3: ',s);
readln
end.

C2: Không dùng mảng (nếu bạn chưa học):

uses crt;
var n,s,i,a:longint; 
begin
clrscr;
   write('Nhap n=');readln(n); 
   s:=0;
   for i:=1 to n Do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(A);
         if a mod 3=0 then inc(s,a); 
      end;
   writeln('Tong cac so chia het cho 3: ',s);
readln
end.