1203.pas

平时acm训练时ac的源代码

var a:array[0..100000]of longint;
    x,y,max,n,i:longint;
begin
     fillchar(a,sizeof(a),0);
     read(n);max:=0;
     if n=0 then begin writeln('0');halt;end;
     if n=1 then begin writeln('1');halt;end;
     for i:=1 to n do begin
     read(x,y);
     if a[x]=0 then a[x]:=y
               else if a[x]>y then a[x]:=y;
     if x>max then max:=x;
     end;x:=0;
     repeat
           for i:=max-1 downto 1 do
           if (a[i]<max)and(a[i]<>0) then begin
           inc(x);max:=i;end;
           if (i=1)and(a[1]>=max) then break;
     until max=1;
     inc(x);
     writeln(x);
end.