先上题：
【问题描述】
众所周知，JY的百度搜索算法已经练的炉火纯青，任何搜索题都能0.000ms出解。
不幸的是，JY遇到了一道百度搜索算法解决不了的题目，题目是这样的：
给定N个数A[1] A[2] .. A[N]，你需要将其重新排序，满足：
1. 对于1<i<=N，A[i]>=A[i/2]。(i/2取下整)
2. 在所有满足条件1的答案中，取A[1]最大的。
3. 仍有多解则取A[2]最大的，依次类推。
JY只好去问他的LBH，可是LBH正在准备数学联赛，没空理JY。JY表示懒得做这道水题，于是这道题就交给你了。
【输入格式】
第一行 N
接下来一行N个数
【输出格式】
一行N个数，相邻的数用空格隔开
【输入输出样例】
lazy.in | lazy.out |
7 1 2 3 4 5 6 7 | 1 5 2 7 6 4 3 |
【数据范围】
50%：N<=2000
100%：N<=100000
一看到这题，便可想到树，对于a[i]，我们可以先排序，用线性表来实现树，即当我们把最小值放在中间，把他的左子树放较小的剩下的数，
把他的右子树放较大的数，再重复建树过程即可，代码如下：
var
i,k,n:longint;
a,b:array[-..]of longint; procedure qsort(l,r:longint); //快排
var
i,j,mid,t:longint;
begin
i:=l; j:=r; mid:=a[(l+r)div ];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
inc(i);
dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if l<j then qsort(l,j);
end; procedure put(x:longint); //用后序遍历（？）建立一个树
begin
inc(k);
if k>n then exit;
b[x]:=a[k];
if (*x+)<=n then
put(*x+);
if *x<=n then
put(*x);
end; begin
assign(input,'lazy.in');
assign(output,'lazy.out');
reset(input);
rewrite(output);
readln(n); //读入n
for i:= to n do
read(a[i]);
qsort(,n);
k:=;
put(); //从1开始建树
for i:= to n do
write(b[i],' '); //正序输出
close(input);
close(output);
end.