挤牛奶

题目：

题目描述

三个农民每天清晨5点起床，然后去牛棚给3头牛挤奶。第一个农民在300秒(从5点开始计时)给他的牛挤奶，一直到1000秒。第二个农民在700秒开始，在 1200秒结束。第三个农民在1500秒开始2100秒结束。期间最长的至少有一个农民在挤奶的连续时间为900秒(从300秒到1200秒)，而最长的无人挤奶的连续时间(从挤奶开始一直到挤奶结束)为300秒(从1200秒到1500秒)。

你的任务是编一个程序，读入一个有N个农民(1 <= N <= 5000)挤N头牛的工作时间列表，计算以下两点(均以秒为单位):

最长至少有一人在挤奶的时间段。

最长的无人挤奶的时间段。（从有人挤奶开始算起）

输入输出格式

输入格式：
Line 1:

一个整数N。

Lines 2..N+1:

每行两个小于1000000的非负整数，表示一个农民的开始时刻与结束时刻。

输出格式：
一行，两个整数，即题目所要求的两个答案。

作者思路：用一个数组统计，再扫一遍。

代码：

var a:array[0..2000000]of longint;
    ans1,ans2,i,j,n,x,y,now1,now2,max,min:longint;
begin
  read(n);
  min:=maxlongint;
  for i:=1 to n do
  begin
    read(x,y);
    for j:=x to y do a[j]:=1;
    if y>max then max:=y;
    if x<min then min:=x;
  end;
  for i:=min to max do
  begin
    if a[i]=1 then
    begin
      now2:=0; inc(now1);
      if now1-1>ans1 then ans1:=now1-1;
    end else
    begin
      now1:=0; inc(now2);
      if now2+1>ans2 then ans2:=now2+1;
    end;
  end;
  writeln(ans1,' ',ans2);
end.