Cho dãy số a1..an . sắp xếp dãy số tăng dần Cảm ơn!

0 bình luận về “Cho dãy số a1..an . sắp xếp dãy số tăng dần Cảm ơn!”

1. program ct;

   uses crt;

   var a:array[1..10000]of integer;

   i,n:integer;

   begin

   write(‘nhap n : ‘);

   readln(n);

   for i:=1 to n do begin

   write(‘nhap a[‘,i,’] : ‘);

   readln(a[i]);

   end;

   for i:=1 to n-1 do 

     for j:=i to n do 

       if a[i]>a[j] then begin

             doi:=a[i];

             a[i]:=a[j];

             a[j]:=doi;

   end;

   for i:=1 to n do write(a[i],’ ‘);

   readln;

   end.

   Bình luận