Nhập vào một mảng,sắp xếp chữ số chẵn theo thứ tự giảm dần,các chữ số lẻ theo thứ tự tăng dần

0 bình luận về “Nhập vào một mảng,sắp xếp chữ số chẵn theo thứ tự giảm dần,các chữ số lẻ theo thứ tự tăng dần”

1. 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.

   Bình luận