Program neunhumotcaunoicothekhienemvui;
uses crt;
Var A : array[1..100] of longint;
Var i,n,S : longint;
begin
clrscr;
write('do dai day so nguyen can nhap:');readln(n);
for i:=1 to n do
begin
write('A[' ,i, ']=');readln(a[i]);
end;

for i:=1 to n do begin
If a[i] mod 2 = 0 then
writeln('cac phan tu chan trong mang A:',A[i], ' ');
end;

readln;
end.

Python:

n = int(input("Nhập số phần tử có trong mảng A: "))
A = []
for i in range(1, n + 1):
      A.append(int(input()))
count = 0
for i in A:
      if i % 2 == 0:
          count += 1 
print("Có", count, "giá trị số chẵn.")