Cho mảng A[1..n]. Sắp xếp lại mảng A

0 bình luận về “Cho mảng A[1..n]. Sắp xếp lại mảng A”

1. Đây là cách sắp xếp lại mảng A theo thứ tự tăng dần nha!

    Crt;
   Type Mang = ARRAY[1..50] Of Integer;

   Var A:Mang;
   N,i,j,c:Integer;

   Begin

           Write(‘Nhap N=’);

           Readln(N);

           For i:=1 To N Do
           Begin
                 Write(‘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
                c:=A[i]; A[i]:=A[j]; A[j]:=c;

          End;

     Writeln(‘Ket qua sau khi sap xep:’);

       For i:=1 To N Do Write(A[i]:5);      Readln;
   End.

   Bình luận

2. Mình không biết sắp xếp theo thứ tự nào nên mình làm theo thứ tự tăng dần nhé!

    

   Program SXM;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,j,n,tg: longint;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘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
                                   tg:=A[i];
                                   A[i]:=A[j];
                                   A[j]:=tg;
                           End;
           For i:=1 to n do
           Begin
                   Write(A[i]);
                   Writeln;
           End;

           Readln
   End.

   Bình luận