> 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.

• 本学期第一次去上计算机课~ (0) palmtenor 2005-05-10 15:00:27