KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Cho N và dãy số a1… aN, hãy sắp xếp dãy số đó thành dãy số tăng dần .
By Valerie
Cho N và dãy số a1… aN, hãy sắp xếp dãy số đó thành dãy số tăng dần .
Program NhatNgu; Uses crt; Var A: array[1..10000] of longint; n,i,j,tg: longint; Begin Clrscr; 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 tg:=A[i]; A[i]:=A[j]; A[j]:=tg; End; For i:=1 to n do Write(A[i],’ ‘); Readln End.
uses crt; var i,n,j,t:longint; a:array[1..1000000]of longint; begin clrscr; write(‘n=’);readln(n); for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); for j:=1 to i do if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; end; for i:=1 to n do writeln(a[i]); readln; end.
Program NhatNgu;
Uses crt;
Var A: array[1..10000] of longint;
n,i,j,tg: longint;
Begin
Clrscr;
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
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
For i:=1 to n do Write(A[i],’ ‘);
Readln
End.
uses crt;
var i,n,j,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
for j:=1 to i do
if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
end;
for i:=1 to n do writeln(a[i]);
readln;
end.