Input: Số lượng phần tử (n), dãy a1, a2, a3, ...,an.
Output: Số số chẵn
Thuật toán:
B1: Nhập số lượng phần tử
B2: dc:=0;
B3: Cho i chạy từ 1 đến n: Nếu a[i] mod 2 = 0 thì inc(dc);
B4: Thông báo số số chẵn. Kết thúc thuật toán
*Chương trình:
Program qtruong;
Uses crt;
Var A:array[1..10000] of longint;
n, i, dc: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
dc:=0;
For i:=1 to n do if A[i] mod 2 = 0 then inc(dc);
Writeln('Trong day co ',dc,' so chan');
readln
end.
