Viết chương trình nhập vào một dãy số nguyên có n phần tử. a. Đưa những phần tử lẻ ra đầu danh sách, những phần tử chẵn về cuối danh sách và in kết quả ra màn hình. b. Sắp xếp các phần tử lẻ đầu danh sách theo thứ tứ tăng dần, sắp xếp các phần tử chẵn cuối danh sách theo thứ tự giảm dần. In danh sách ra màn hình.

program vt;
uses crt;
var i,n,j,e,c,l,tgc,tgl,bcc,bcl:integer;
    a,b,d:array[1..1000] of integer;
begin
     clrscr;
     j:=0;
     e:=0;
     tgc:=0;{bien trung gian cho so le}
     tgl:=0;{bien trung gian cho so chan}
     bcc:=0;{bien chay cho vong lap chan}
     bcl:=0;{bien chay cho vong lap le}
     write('nhap vao so phan tu cua mang: ');
     read(n);
     for i:=1 to n do
     begin
          write('nhap vao phan tu thu ',i,' ');
          write('a[',i,']=');read(a[i]);
     end;
     for i:=1 to n do
     begin
          if (a[i] mod 2)=0 then
          begin
               j:=j+1;
               b[j]:=a[i];
               c:=j;
          end
          else if (a[i] mod 2)<>0 then
          begin
               e:=e+1;
               d[e]:=a[i];
               l:=e;
          end;
     end;
     for i:=1 to l do write(d[i],' ');
     for i:=1 to c do write(b[i],' ');
     for bcl:=1 to (l-1) do
     for i:=bcl+1 to l do
     if (d[i]>=d[bcl]) then
     begin
          tgl:=d[i];
          d[i]:=d[bcl];
          d[bcl]:=tgl;
     end;
     for bcc:=1 to (c-1) do
     for i:=bcc+1 to c do
     if (b[i]<=b[bcc]) then
     begin
          tgc:=b[i];
          b[i]:=b[bcc];
          b[bcc]:=tgc;
     end;
     writeln;
     for i:=1 to l do write(d[i],' ');
     for i:=1 to c do write(b[i],' ');
     readln;
end.