uses crt;

var dem,i,n:integer;

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

begin

clrscr;

dem:=0;

write('n=');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

begin

for i:=1 to n do

if a[i] mod 2 = 0 then

dem:=dem+1;

end;

writeln('day so co'dem' so chan');

readln;

end;

(số lẻ thì làm ngược lại (a[i] mod 2 <>0))

số lẻ

uses crt ;

var n,i,demchan,demle:word

a:array[1..100] of longint;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin 

write(a'[',i',]=');readln(a[i])

end;

demchan:=0;

demle:=0;

for i:=1 to n do

if a[i] mod  2=0 then demchan=:demchan+1

end;

if demchan=0 then writeln( 'khong co phan tu chan trong day ) 

else writeln('so phan tu chan trong day la:',demchan);

if demle=0 then writeln( khong co phan tu le trong day)

else writeln('so phan tu le trong day la:',demle);

readln;

end.