Cho dãy gồm N số nguyên a1,..an. hãy cho biết trong dãy có bao nhiêu số hạng chia hết cho 3
2 câu trả lời
nhập n và mảng a
duyệt từ đầu đến cuối, nếu có số chia hết cho 3 (hay chia 3 dư 0) thì inc(c) (c là biến đếm
in ra c
var n, i, count: integer;
a: longint
begin
readln(n);
for i := 1 to n do
begin
read(a);
if a mod 3 = 0 then inc(c);
end;
writeln('Số phần tử chia hết cho 3: ', s);
end.