C数列下标 牛客OI赛制测试赛2

链接：https://www.nowcoder.com/acm/contest/185/C
来源：牛客网

给出一个数列 A，求出一个数列B.

其中B_i   表示 数列A中 A_i 右边第一个比 A_i 大的数的下标(从1开始计数),没有找到这一个下标  Bi 就为0

输出数列B

输入描述:

第一行1个数字 n (n ≤ 10000)

第二行n个数字第 i 个数字为 A_i (0 ≤ A_i  ≤ 1000000000)

输出描述:

一共一行，第 i 个数和第 i+1 个数中间用空格隔开.
题解：虽然直接暴力也能过，但是如果数据大了，就要用单调队列了（不需要二分的，比它大就直接从队列中减到小于等于的）

 var
 q:array[..,..]of longint;
 a,b:array[..]of longint;
 n,i,j,k:longint;
 begin
 readln(n);
 for i:= to n do read(a[i]);
 q[,]:=a[n];q[,]:=n; k:=;

 for i:=n- downto  do
  begin
   while (k>)and(q[k,]<=a[i]) do
    begin
     dec(k);
    end;
   // writeln(q[k,]);
    b[i]:=q[k,];
    inc(k);
    q[k,]:=a[i];
    q[k,]:=i;
  end;
  for i:= to n do
   write(b[i],' ');
 end.