Question

Đề bài:

Nhập vào n số tự nhiên,hãy sắp xếp theo thứ tự tăng dần,hiểu thị kết quả lên màng hình.

Bài làm:

Program bt;

Var i,j,n:integer;

Begin

Writeln('Nhap n:=');

Readln(n);

For i:=1 to n do

For j:=i+1 to n-1 do

if 1>j then ??????????(tiếp theo là gì mình không giúp mình với ạ)

*Câu hỏi kèm theo: Bình thường muốn gán hai biến cho nhau thì cần biến trung gian nhưng trong trường hợp nằm trong dãy FOR thì có cần thêm biến trung gian hay không?Vì sao?

Answer 1

Bạn tham khảo nha

uses crt;
var A:array [1..100] of integer;
i,j,n,Tam:word;
begin
clrscr;
write('nhap so phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,' : ');
readln(A[i]);
end;
for i:=1 to n-1 do {sap xep mang tang dan}
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;
write( 'sau khi sap xep: ');
for i:=1 to n do write(A[i]:4);
readln
end.

Answer 2

uses crt;
var A:array [1..100] of integer;
i,j,n,Tam:word;
begin
clrscr;
write('nhap so phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,' : ');
readln(A[i]);
end;
for i:=1 to n-1 do {sap xep mang tang dan}
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;
write( 'sau khi sap xep: ');
for i:=1 to n do write(A[i]:4);
readln
end.