明显的单调队列…… 但下面的程序一直有bug 附上题解:http://blog.csdn.net/njlcazl/article/details/8611042 附上我的代码: var head,tail,i,n,maxp,w,t,ans,j:longint; as,bs,ap,bp,q,val:..] of longint; f:..,..] of longint; function max(x,y:longint):longint; begin if x>y then exit(x) els…