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.