bzoj1046

首先这肯定是一道LIS的变形，这次求的是方案，还要求字典序最小

（注意这个字典序最小是指下标最小而不是数最小）

首先预处理以每个数为首，能组成多长的上升序列（这里我们用单调队列解决）

然后按照位置顺序扫一遍顺出可行即可

要注意每行末的空格

var f,a,q:array[0..10010] of longint;
    n,k,i,x,j,t,l,r,m:longint;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  a[0]:=2147483647;
  for i:=n downto 1 do
  begin
    if (a[q[t]]>a[i]) then
    begin
      inc(t);
      q[t]:=i;
      f[i]:=t;
    end
    else begin
      l:=1;
      r:=t;
      while l<=r do
      begin
        m:=(l+r) shr 1;
        if (a[q[m]]<=a[i]) and (a[q[m-1]]>a[i]) then break;
        if (a[q[m]]<=a[i]) then r:=m-1 else l:=m+1;
      end;
      f[i]:=f[q[m]];
      q[m]:=i;
    end;
  end;
  readln(k);
  for i:=1 to k do
  begin
    readln(x);
    j:=1;
    t:=-2147483647;
    while (j<=n) and (x>0) do
    begin
      if (f[j]>=x) and (a[j]>t) then
      begin
        write(a[j]);
        if x<>1 then write(' ');
        dec(x);
        t:=a[j];
      end;
      inc(j);
    end;
    if x>0 then writeln('Impossible')
    else writeln;
  end;
end.