Uses Crt; {Khai báo thư viện}
Var A:array[1..1000] of integer;
i,j,n,tg: integer;
Begin
Clrscr; {Lệnh xóa màn hình}
Writeln('Nhap so phan tu n vao day:'); Readln(n); {Đọc biến n}
For i:=1 to n do
Begin
Writeln('Nhap so thu',i,':'); Readln(A[i]); {Đọc biến A[i]}
End; {Kết thúc lệnh ghép}
For i:= 1 to n-1 do {Đối với i được gán = 1 đến n-1 thì}
For j:=i+1 to n do {Đối với j được gán = i+1 đến n t thì}
If A[i]>A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln('Day so sap xep theo thu tu tang dan la:');
For i:= 1 to n do
Write(A[i]:3); {Giãn cách các số sang ngang nếu là write, theo dọc nếu là writeln}
Readln
End.
*Nhớ tick và chọn làm ctrhn cho bên mình khi có thêm 1 ctrl nữa nhé! Thanks so much :33 (Có gì không hiểu, comment bên dưới)
