program BaiTap;

uses crt;

var i, n, dem: integer;

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

begin

 clrscr;

 write('Nhap do dai cua day n = '); readln(n);

 writeln('Nhap cac phan tu cua day: '); 

 for i:=1 to n do readln(A[i]);

 writeln('In ra day so: ');

 for i:=1 to n do writeln(A[i]);

 dem:=0;

 for i:=1 to n do if A[i] mod 2 = 1 then dem:=dem+1;

 writeln('Day so vua nhap co '.dem,' so le');

end.

@huanle2k8

uses crt;

var a : array [1 .. 100] of integer;

i, n, d : integer;

begin

clrscr;

d := 0;

write('Nhap so dai day so = '); readln(n);

for i := 1 to n do

    begin

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

        readln(a[i]);

        if a[i] mod 2 <> 0 then d := d + 1;

    end;

write('Day so cua nhap : ');

for i := 1 to n do write(a[i],' ');

writeln; write('Day co ', d ,' gia tri le');

readln

end.