Pascal小白|大鱼吃小鱼

题目描述

有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.