uses crt;

var A : array [1 ..100] of real;

i, N, Dem : integer;

begin

clrscr;

Dem := 0;

write('Nhap N = '); readln(N);

for i := 1 to N do

    begin

        write('Nhap so thu ', i ,' : ');

        readln(A[i]);

        if trunc(A[i]) div 2 = A[i] / 2 then

            Dem := Dem + 1;

 end;

write('So luong so thuc chia het cho 2 : ', Dem);

readln

end.

uses crt;
var n,i,dem:longint;a:array[1..1000]of real;
begin
 clrscr;
  write('nhap n:');readln(n);
  dem:=0;
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         if(frac(a[i] / 2)=0)then inc(dem);
        end;
  write('co ',dem,' so chia het cho 2 trong day');
 readln
end.