Tính tổng các phần tử trong mảng chưa hết cho 3. Cho mảng một chiều A gồm n phần tử(n<=500), các phần tử của mảng là số nguyên. Tính và đưa ra màn hình tổng các phần tử chia hết cho 3.

Program BTT;
Uses crt;
Var A: array[1..500] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 3 = 0 then s:=s+A[i];
        End;
        Write('S  = ',s);
        Readln
End.

var n,i,s:integer;
     a: array [1..500] of integer;
begin
 write('Nhap n: '); readln(n);
 for i:=1 to n do
  begin
   write('Nhap phan tu thu ',i,' : '; read(a[i]);
   if a[i] mod 3 = 0 then s:=s+a[i];
  end;
 writeln;
 write('Tong cac phan tu chia het cho 3 la: ',s);
 readln;
end.