Viết chương trình cho phép sắp xếp một dãy số với yêu cầu sử dụng các chương trình con: Nhập mảng, in mảng, đổi giá trị của hai số.

Program Sap_xep_day; uses crt; type kieu_mang =array[1..100] of integer; Var A: kieu_mang; n,i,j:byte; {---------------------} Procedure Nhap_mang(var M:Kieu_Mang;n:byte); Var i:byte; begin for i:=1 to n do begin write('M[',i,']=');readln(M[i]); end; end; {---------------------} Procedure In_mang(var M:Kieu_Mang;n:byte); Var i:byte; begin for i:=1 to n do write(M[i]:3,', ') end; {---------------------} Procedure swap(var a,b:integer); var tam:integer; begin tam:=b; b:=a; a:=tam; end; {---------------------} Begin Clrscr; write('Cho biet so phan tu cua day: ');readln(n); nhap_mang(A,n); for i:=1 to n-1 do for j:= i to n do if A[i]>A[j] then swap(A[i],A[j]); In_mang(A,n); readln end.