帮我看看这道题

var n,ans,i,j,k:longint;

x,y,a:array[0..100000]of longint;

begin

read(n);

for i:=1 to n do read(a[i]);

x[n]:=n+1;y[n]:=n+1;

for i:=n-1 downto 1 do

begin

j:=i+1;

while ja[i] then break else j:=x[j];

x[i]:=j;

end;

for i:=n-1 downto 1 do

begin

j:=i+1;

while j

0 条评论

目前还没有评论...

信息

ID
1548
难度
7
分类
数据结构 | 单调队列 点击显示
标签
(无)
递交数
960
已通过
161
通过率
17%
被复制
3
上传者