Mình viết chương trình bằng C++ nhé.

#include <iostream>

int main()

{

    int n; //Khai báo số n.

    cin >> n; //Nhập vào số n.

    //Các biến đếm để lưu số giá trị chẵn, số giá trị lẻ.

    int chan = 0;

    int le = 0;

    for (int i = 0; i<n; ++i) //Lặp lại n lần

    {

         int x; //Khai báo số tự nhiên x;

         cin >> x; //Nhập vào số tự nhiên x;

         if (x % 2 == 0) //Nếu x chia 2 dư 0 (x là số chẵn)

               ++chan; //Tăng giá trị biến đếm số chẵn lên 1 đơn vị.

         else ++le; //Nếu không thì tăng biến đếm số lẻ.

    }

    //Xuất dữ liệu.

    cout << "So so chan la: " << chan << endl;

    cout << "So so le la: " << le << endl;

    return 0; //Kết thúc chương trình.
 }

Bài 1: program sochan;
uses crt;
var i,n,d:integer;
    A:array[1..1000] of integer;
begin
 clrscr;
 readln(n);
 for i:=1 to n do
  begin
   read(A[i]);
   if (A[i] mod 2 =0) then inc(d);
  end;
 writeln('Co ',d,' so chan');
 readln;
 readln;
end.

bài 2:

program sole;
uses crt;
var i,n,d:integer;
    A:array[1..1000] of integer;
begin
 clrscr;
 readln(n);
 for i:=1 to n do
  begin
   read(A[i]);
   if (A[i] mod 2 <>0) then inc(d);
  end;
 writeln('Co ',d,' so le');
 readln;
 readln;
end.