这道题第一眼还以为是树状数组,于是乎打着打着也是能过的 ; var n,i,j,maxx:longint; h,l:array[..] of longint; p:array[..] of longint; function lowbit(x:longint):longint; begin exit(x and (-x)); end; procedure insert(x,i:longint); var tem:longint; begin tem:=x; do begin p[tem]:=i;…