Làm giúp với tui đang làm kiểm tra Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số nguyên A gồm N phần tử A1, A2, …, An. Cho biết có bao nhiêu phần tử là số chẵn trong dãy số.

Program Bai_tap;

Uses crt;

Const Nmax = 100;

Var A: array[1..Nmax] of Integer;

       N, i, dem: byte;

Begin

   Clrscr;

   Write(‘ Nhap so luong phan tu n= ’);

   Readln(n);

   For i:=1 to n do

          Begin

                 Write(‘ Phan tu thu ’, i, ’= ’);

                 Readln(A[i]);

          End;

   dem:=0;

      For i:=1 to n do

             If A[i] mod 2 = 0 then dem:=dem+1;

      Writeln(‘ Day so da cho co ’, dem, ’ so chan’);

  Readln

End.