做这道题走了不少弯路,其实本身也是很简单的,类似单调队列的东西.刚开始以为双关键字排序就行了,结果连WA两遍,忽然意识到可以在截止之前做这件事!!于是就规规矩矩的打队列,然而忘记找队列里的最小P做,当成是单调的了,于是又顺顺利利地WA了好多次了,说多了都是泪啊.. var n,i,j,l,r,min,mpos:longint; ans:int64; d,p,q:array[..] of longint; procedure swap(var a,b:longint); var tem:longi…