Nhập vào mảng một chiều gồm n số n nguyên ,tính tổng các số mà các số đó chia hết cho 3 Vd: nhập 5 2 3 1 18 -6 in ra màn hình 15

program tinh_tong;

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(t);       

       readln;

end.

uses crt;
var i,n,s:longint; a:array[1..100000000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap so 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.