代码: 这道题也并不难,用排序+简单动规即可.因为@Kevin_Wa 大佬放的是c++,所以我来一发Pascal. var min,max,i,a1,b1,c1,d1,n:longint; a,b,c,d:array[0..500000] of int64; procedure sort(l,r: longint); var i,j,x,y,y1,y2,y3:longint; begin i:=l;j:=r;x:=a[(l+r) div 2];y1:=b[(l+r) div 2]; y2:=c[…