1/
uses crt;
var A:array[1..1000] of integer;
N,i,min:integer;
begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
min:=A[1];
for i:=2 to N do
if A[i]<min then min:=A[i];
write('Min = ',min);
readln
end.
2/
uses crt;
var A:array[1..1000] of integer;
chan:array[1..1000] of integer;
le:array[1..1000] of integer;
N,i,min,c,l:integer;
begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
for i:=1 to n do
if A[i] mod 2 = 0 then
begin
inc(c);
chan[c]:=A[i];
end
else
begin
inc(l);
le[l]:=A[i];
end;
writeln;
for i:=1 to l do write(le[i]:4);
for i:=1 to c do write(chan[i]:4);
readln
end.