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

var n, i, c: integer;

a: longint;

begin

readln(n);

for i := 1 to n do

begin

read(a);

if a mod 2 = 0 then inc(c);

end;

writeln(c);

end.

Cho xin 5*, cảm ơn, ctlhn

- Thuật toán đếm số hạng mang gía trị chẵn :

- Bước 1 : nhập số n và dãy các số hạng a1, a2, ... , an

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

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

- Bước 4 :

- Bước 4.1 : nếu a[i] chia hết cho 2 thì count ← count + 1

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