uses crt; var n,i,j,t:longint; a:array[1..10000000]of longint; 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 for j:=i to n Do if ((a[i]>a[j])and(a[i] mod 2=0)and(a[j] mod 2=0)) or((a[i]<a[j])and(a[i] mod 2=1)and(a[j] mod 2=1)) then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; write('Day sau khi sap xep: '); for i:=1 to n do write(a[i],' '); readln end.
