挤牛奶

题目：

题目描述

三个农民每天清晨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.