uses crt;
var a: array[1..1000] of integer;
    n,i,min,csl,csc:integer;
Begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
 begin
 write('a[',i,']'); readln(a[i]);
 end;
for i:=1 to n do write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
 if a[i]< a[1] then min:=a[i];
Write('Phan tu min cua mang: ',min);
writeln;
csl:=0;
for i:=1 to n do
 if a[i] mod 2<>0 then
   csl:=csl+1;
write(csl,' so le trong mang la: ');
for i:=1 to n do
 if a[i] mod 2<>0 then
write(a[i],' ');
writeln;
csc:=0;
for i:=1 to n do
 if a[i] mod 2=0 then
   csc:=csc+1;
write(csc,' so chan trong mang la: ');
for i:=1 to n do
 if a[i] mod 2=0 then
write(a[i],' ');
readln;
end.

program timsochan;

uses crt;

var i,n, dem : integer;  min, max : real;

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

Begin clrscr;

dem1 :=0; dem2 :=0;

Writeln('Nhap cac phan tu n :'); readln(n);

For i:=1 to n do

Begin

Writeln('Nhap a[',i,'] = '); readln(a[i]);

end;

min := a[1];

For i :=1 to n do

If a[i] < min then min := a[i];

Writeln('Phan tu nho nhat la :, min);

For i :=1 to n do 

If a[i] mod 2 = 0 then dem1 :=dem1+1;

For i :=1 to n do 

If a[i] mod 2 = 1 then dem2:=dem2+1;

writeln('Dem so le ', dem2, 'dem so chan', dem 1);

readln

end.