Cho mảng A gồm N số nguyên (n<=100). Tính tổng các phần tử của mảng là bội của 3. Đếm xem có bao nhiêu phần từ là bội của 3.

var a:array[1..100] of longint;

i,t,n,d:longint;

begin

readln(n);d:=0;t:=0;

for i:=1 to n do read(a[i]);readln;

for i:=1 to n do

if a[i] mod 3=0 then begin t:=t+a[i];inc(d);end;

writeln(t);

writeln(d);

readln

end.

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i,s,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);

                If A[i] mod 3 = 0 then 

                Begin
                     inc(d);
                     s:=s+A[i];

                End;
        End;
        Writeln(s);
        Write(d);
        Readln
End.