Cho dãy A gồm N số nguyên, N nhỏ hơn hoặc bằng 250.Hãy sắp xếp dãy A thành 1 dãy không giảm. Giúp mình với ạ, mình cảm ơn mọi người nhiều:3
1 câu trả lời
uses crt;
var n, i, j, tmp: Longint;
a: array[1..1000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n - 1 do
for j:=i + 1 to n do
if a[i] > a[j] then
begin
tmp:=a[i]; a[i]:=a[j]; a[j]:=tmp;
end;
for i:=1 to n do
write(a[i],' ');
readln; readln;
end.
Câu hỏi trong lớp
Xem thêm
