var a:array[1..10000] of longint;
n,i:longint;
procedure s(t,w);
var
ww,tt,s,d:longint;
begin
tt:=t;
www:=w;
s:=a[(t+w) div 2];
while a[t] while a[w]>s do w:=w-1;
if t<=w then
begin
d:=a[t];
a[t]:=a[w];
a[w]:=d;
inc(t);dec(w);
end;
if tt
begin
readln(n);
for i:=1 to n do
readln(a[i]);
s(1,n);
for i:=1 to n do
writeln(a[i]);
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024