Viết chương trình nhập vào một mảng số nguyên không quá 250 phần tử. Đếm số phần tử nguyên dương chẵn có trong mảng

uses crt;
var i,n,d:longint; a:array[1..250]of longint;
begin
clrscr;
   write('Nhap so luong phan tu: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 2=0 then d:=d+1;
      end;
   writeln('So phan tu nguyen duong chan: ',d);
readln
end.

Program baitap;

Uses crt;

Var A:array[1..250] of integer;

      i,n,dem:integer;

Begin

Clrscr;

Write('So cac so phan tu co trong mang:');

Readln(n);

dem:=0;

For i:=1 to n do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If (A[i]>0 and (A[i] mod 2=0)) then dem:=dem+1;

     End;

Writeln('Co ',dem,' so phan tu nguyen duong chan');

Readln

End.