1047.c

平时acm训练时ac的源代码

const maxn=3000;
type arrtype=array [1..maxn] of word;
var even,odd:arrtype;
    n:integer;
    judge:boolean;
procedure init;
  var i:integer;
  begin
    readln(n);
    for i:=1 to n do
      read(odd[i]);
    judge:=true;
  end;
procedure work(p1,p2:integer);
  var p:integer;
      k:word;
  begin
    if p1>p2 then exit;
    k:=odd[p2];
    p:=p1;
    while odd[p]<k do
      inc(p);
    work(p,p2-1);
    work(p1,p-1);
    if judge then begin
                  write(k); judge:=false;
                  end
             else write(' ',k);
  end;
begin
  init;
  work(1,n);
  writeln;
end.