Viết chương trình theo các yêu cầu sau:- Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím (10<=N<=20).- Chương trình thông báo kết quả ra màn hình gồm: Chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của các số chẵn và chuỗi số được sắp xếp theo chiềugiảm dần của các số lẻ.Ví dụ:-Moi ban nhap vao so N ( Với 10<=N<=20): 10-Moi ban nhap lan luot day so gom 10 so la cac so nguyen dương:+ So thu 1: 3+ So thu 2: 84+ So thu 3: 75+ So thu 4: 6+ So thu 5: 69+ So thu 6: 72+ So thu 7: 33+ So thu 8: 14+ So thu 9: 17ĐỀ CHÍNH THỨC + So thu 10: 42- Chuoi ban dau la: 3, 84, 75, 6, 69, 72, 33, 14, 17, 42- Chuoi sau khi sap xep tang dan cua cac so chan la: 6, 14, 42, 72, 84- Chuoi sau khi sap xep giam dan cua cac so le la: 75, 69, 33, 17, 3––––––––––––––––––– Hết ––––––––––––––––––––

var a:array[0..10000] of longint;
    i,n:longint;
procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
procedure sortgiam(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]>x do
            inc(i);
           while x>a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sortgiam(l,j);
         if i<r then
           sortgiam(i,r);
      end;
begin
        readln(n);
        for i:=1 to n do
        begin
                write('a[',i,']');
                read(a[i]);
        end;
        sort(1,n);
        for i:=1 to n do
                if a[i] mod 2=0 then write(a[i],' ');
                writeln;
        sortgiam(1,n);
        for i:=1 to n do
                if a[i] mod 2 <>0 then write(a[i],' ');
readln;
readln;
end.