Cho N và dãy số nguyên a1...an hãy cho biết có bao nhiêu số hạng trong dãy có giá trị chia hết cho 3 và tổng của chúng

uses crt;
var n, i, cnt, sum:longint;
    a:array[1..1000] of longint;
begin
clrscr;
    readln(n);

    for i:=1 to n do
        begin
            read(a[i]);
            if(a[i] mod 3 = 0) then
                begin
                    inc(cnt);
                    inc(sum, a[i]);
                end;
        end;

    writeln(cnt);
    writeln(sum);
readln; readln;
end.

- Thuật toán đếm số hạng chia hết cho 3 và tổng của chúng

- Bước 1 : nhập số nguyên n và dãy a1, a2, ... , an

- Bước 2 : i ← 1, dem ← 0, tong ← 0

- Bước 3 : nếu i > n thì đưa ra giá trị dem và tong rồi kết thúc

- Bước 4 :

- Bước 4.1 : nếu a[i] chia hết cho 3 thì dem ← dem + 1, tong ← tong + a[i]

- Bước 4.2 : i ← i + 1 quay lại bước 3