题目描述
有N条鱼每条鱼的位置及大小均不同，他们沿着X轴游动，有的向左，有的向右。游动的速度是一样的，两条鱼相遇大鱼会吃掉小鱼。从左到右给出每条鱼的大小和游动的方向（0表示向左，1表示向右）。问足够长的时间之后，能剩下多少条鱼？
输入
第1行：1个数N，表示鱼的数量(1 <= N <= 100000)。
第2 - N + 1行：每行两个数A[i], B[i]，中间用空格分隔，分别表示鱼的大小及游动的方向(1 <= A[i] <= 10^9，B[i] = 0 或 1，0表示向左，1表示向右）。
输出
输出1个数，表示最终剩下的鱼的数量。
Input示例
5
4 0
3 1
2 0
1 0
5 0
Output示例
2
解题关键
破题关键是 1.位置及大小均不同 2.游的速度相同 3.沿着X轴运动，综合结果为鱼们的运动是匀速直线运动。影响结果为，存在捕食行为的必须是两条相向的鱼，且两条相向的鱼必定会有一条被吃掉。
解决思路
碰到右的就存入数组C，如果是左的，就与C数组里面的作比较，如果比数组的小，鱼总数就减一，跳出循环，如果比数组里面的大，就把和往左比较的那条鱼移出数组，然后鱼数减一 ，继续和数组的下一条鱼比较。
代码
var n,i,top,m: Integer;
A,B,C: array[1..100000] of Integer; {数列}
begin
Readln(N);
for i := 1 to n do Readln(A[i],B[i]);
i:=1;
top:=0;
m:=n;
for i := 1 to n do
begin
if(B[i]=1) then
begin
inc(top);
C[top]:=A[i];
end
else
begin
while(top<>0) do
begin
if A[i]>C[top] then
begin
dec(m);
dec(top);
end
else
begin
dec(m);
break;
end;
end;
end;
end;
writeln(m);
Readln;
end.
