Viết chương trình đếm số lượng phần tử chẵn trong mảng

var i,n:integer;

     a: array [1..1000] of integer;

begin

write('Nhap n: '); 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 inc(d);

end;

writeln;

write('So phan tu chan: ',d);

readln

end.

Vì đề không cho nên mình lấy số số hạng trong mảng là 250 nha!

type Kmang1: array[1..250];

var A: Kmang1;

      dem, i: integer;

Begin

for i:=1 to 250 do

  begin

  Write('Phan tu thu', i , 'la');

  Readln( A[i]);

  end;

dem:=0;

for i:=1 to 250 do

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

Write('so luong phan tu chan trong mang la', dem);

Readln;

End.