Viết chương trình nhập vào một mảng gồm n phần tử nguyên ( Nhỏ hơn 200) . Sau đó thực hiện công việc Đưa ra màn hình số lượng các phần tử chia hết cho 3 và tính tổng của các phần tử đó.

uses crt;

var a : array[1 .. 200] of integer;

i, n, s, d : integer;

begin

clrscr;

write('Nhap so phan tu : '); readln(n);

s := 0; d := 0;

write('Nhap ', n ,' so nguyen : ');

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

if a[i] mod 3 = 0 then begin

d := d + 1; s := s + a[i]; end; end;

writeln('Co ', d ,' phan tu chia het cho 3');

writeln('Tong : ', s);

readln

end.

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,d,s: 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(d);
        Write(s);
        Readln
End.