var
 p,w:array[0..20]of longint;
 t,n,i,j:longint;
begin
 readln(t);
 repeat
  dec(t);
  readln(n);
  for i:=1 to n do read(p[i]);
  for i:=1 to n do
   for j:=i-1 downto 0 do
    if p[i]-p[j]>=i-j then
     begin w[i]:=i-j; break; end;
  for i:=1 to n-1 do write(w[i],' ');
  writeln(w[n]);
 until t=0;
end.

• Re:我这个Pascal 17行0MS是不是更精髓呢 (54) kill_myself 2011-07-25 10:01:22