viết chương trình nhập vào 1 mảng a và n là số phần tử của mảng(n<=100) in ra dãy sắp xếp tăng dần

0 bình luận về “viết chương trình nhập vào 1 mảng a và n là số phần tử của mảng(n<=100) in ra dãy sắp xếp tăng dần”

1. uses crt;
   var a: array[1..100] of integer;
       i,n,j,t: integer;
   begin
    clrscr;
     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+1 to n do
       if a[i]<a[j] then
        begin
         t:=a[i];
         a[i]:=a[j];
         a[j]:=t;
        end;
     write (‘day sau khi sap xep tang dan la: ‘);
     for i:=1 to n do
      write (a[i],’ ‘);
    readln;
   end.

   Bình luận