cứu mình đi mn oi viết chương trình nhập vào 1 dãy số nguyên dương gồm N phần tử (N<=100). Hãy in ra màn hình dãy số vừa nhập. Hãy sắp xếp dãy số theo chiều tăng dần từ trái sang phải và in ra dãy số sau khi đã sắp xếp
1 câu trả lời
uses crt;
var n,i,j,tam:longint;a:array[1..100]of longint;
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 do write(a[i],' ');
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i]>a[j])then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln;
for i:=1 to n do write(a[i],' ');
readln
end.
