const
      maxn=8000;
var
      seq:array[1..maxn] of longint;
      i,j,k,l,m,n,t,s:longint;
begin
 while not eof(input) do begin
 readln(n);
 fillchar(seq,sizeof(seq),0);
 seq[1]:=1;
 for i:=2 to n do begin
  readln(seq[i]);
  inc(seq[i]);
  for j:=1 to i-1 do if seq[j]>=seq[i] then inc(seq[j]);
 end;
 for i:=1 to n do writeln(seq[i]);
end;
end.

• ft......你怎么不上课？ (405) TN 2005-05-10 14:59:21
  • 本学期第一次去上计算机课~ (0) palmtenor 2005-05-10 15:00:27
• ft，这么简单，怪不得程序暴短 (405) frkstyc 2005-05-10 14:59:52
  • 我的和这个类似。233MS。 (0) ciciatc 2005-05-10 15:30:05
    • 和gcc编译的bst时间一样 (0) frkstyc 2005-05-10 15:32:12
• ft~我刚才太死心眼了，想出来线段树了 (405) palmtenor 2005-05-10 15:09:29