根据凸包的单峰性质,穷举第一个顶点然后先更新第三个顶点,再更新第二个顶点 ..] of longint; ans,n,t,k,i,j:longint; function cross(i,j,k:longint):longint; begin exit((x[i]-x[k])*(y[j]-y[k])-(x[j]-x[k])*(y[i]-y[k])); end; function max(a,b:longint):longint; begin if a>b then exit(a) else exi…