Đâ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.
