Câu aaaaa:

uses crt;
var a:array[1..100000] of longint;
    n,i:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 2 <> 0 then
write(a[i],' ');
for i:=1 to n do
if a[i] mod 2 = 0 then
write(a[i],' ');
readln;
end.

Câu bê:

uses crt;
var a,b,c:array[1..100000] of longint;
    n,i,j,l,t,r:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
 readln(a[i]);
 if a[i] mod 2 <> 0 then
 begin
  j:=j+1;
  b[j]:=a[i];
 end;
 if a[i] mod 2 = 0 then
 begin
  l:=l+1;
  c[l]:=a[i];
 end;
end;
for i:=1 to j do
begin
 for r:=i+1 to j do
 begin
  if b[i] > b[r] then
  begin
   t:=b[i];
   b[i]:=b[r];
   b[r]:=t;
  end;
 end;
end;
for i:=1 to l do
begin
 for r:=i+1 to l do
 begin
  if c[i] < c[r] then
  begin
   t:=c[i];
   c[i]:=c[r];
   c[r]:=t;
  end;
 end;
end;
for i:=1 to j do
write(b[i],' ');
for i:=1 to l do
write(c[i],' ');
readln;
end.

uses crt;
var a,b,c:array[1..1000]of longint; n,m,k,i,j,tam,e:longint;
begin
 clrscr;
  textcolor(lightgreen);
  write('n=');readln(n);
  textcolor(lightblue);
  for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;
  writeln;
  textcolor(lightred);
  for i:=1 to n do if(a[i]mod 2=1)then write(a[i]:6);
  for i:=1 to n do if(a[i]mod 2=0)then write(a[i]:6);
  writeln;
  writeln;
  textcolor(lightcyan);
  m:=0;
  k:=0;
  for i:=1 to n do if(a[i] mod 2=0)then begin inc(m); b[m]:=a[i]; end else begin inc(k); c[k]:=a[i]; end;
  for i:=1 to k-1 do
   for j:=i+1 to k do
    if(c[i]>c[j])then
        begin
         tam:=c[i];
         c[i]:=c[j];
         c[j]:=tam;
        end;
  for i:=1 to k do write(c[i]:6);
  for i:=1 to m-1 do
   for j:=i+1 to m do
    if(b[i]<b[j])then
        begin
         tam:=b[i];
         b[i]:=b[j];
         b[j]:=tam;
        end;
  for i:=1 to m do write(b[i]:6);
  writeln;
 readln
end.

$\\$

$\\$

$\\$

Làm hơi màu mè nhưng với mục đích dễ hiểu.