uses math;
var
i,n,s1,s2,s,t:longint;
b,e:array[1..5000] of longint;
procedure kp(l,r:longint);
var
i,j,mid,t:longint;
begin
i:=l; j:=r; mid:=b[l];
repeat
while b[i]<mid do inc(i);
while b[j]>mid do dec(j);
if i<=j then begin t:=b[i]; b[i]:=b[j]; b[j]:=t;
t:=e[i]; e[i]:=e[j]; e[j]:=t; inc(i); dec(j); end;
until i>j;
if l<j then kp(l,j); if i<r then kp(i,r);
end;
begin
readln(n);
for i:=1 to n do
readln(b[i],e[i]);
kp(1,n); s:=b[1]; t:=e[1]; s1:=t-s;
for i:=2 to n do
begin if b[i]<=t then t:=max(t,e[i])
else begin s:=b[i]; t:=e[i]; end; s1:=max(s1,t-s); end;
t:=e[1];
for i:=2 to n do
begin if b[i]-t>s2 then s2:=b[i]-t; t:=max(t,e[i]); end;
writeln(s1,' ',s2);
end.
一大堆的福利之【USACO题库】 Milking Cows挤牛奶
最新推荐文章于 2021-01-18 00:45:43 发布