1277. 最高的奶牛 (Standard IO)

Description

FJ有N(1 <= N <= 10,000)头奶牛，编号为1到N,站成一条直线。每头奶牛自己的身高(正整数，秘密未知)，告诉你最高奶牛的身高H及位置I，同时告诉你R(0 <= R <= 10,000)组信息，每组信息由两个数ai,bi组成,表示奶牛ai可以看到奶牛bi，这就意味着奶牛bi的身高至少和奶牛ai的身高一样高，同时奶牛ai到奶牛bi之间的奶牛身高必须低于奶牛ai
现在要你求出每头奶牛最高可能的高度，保证有解。

Input

第1行输入4个空格隔开的整数N,I,H,R
第2到R+1行，每行两个空格隔开的不同的整数A,B(1<=A,B<=N)，表示奶牛A能看到奶牛B
解释：如果奶牛A和奶牛B一样高，则可以出现A看到B，B又看到A的情况，如果奶牛A矮于奶牛B，则只可能出现奶牛A看到奶牛B，奶牛B不可能看到奶牛A。

Output

第1到N行，每行一个整数表示每只奶牛最高可能的高度。

Sample Input

9 3 5 5
1 3
5 3
4 3
3 7
9 8

Sample Output

5
4
5
3
4
4
5
5
5

思路

O(n^2)
暴力，一开始全部高度是最高高度，每输入a看见b，那么如果a和b之间所有奶牛有一头比a高，那么a与b之间所有奶牛全部减1。

var
  s:array[1..10000] of longint;
  n,i,h,r,j,k,x,y,p:longint;
begin
  readln(n,i,h,r);
  for i:=1 to n do
    s[i]:=h;
  for i:=1 to r do
    begin
      readln(x,y);
      p:=x;
      if x>y then
        begin k:=x;x:=y;y:=k;end;
      for j:=x+1 to y-1 do
        if s[j]>=s[p] then
          begin
            for k:=x+1 to y-1 do
              dec(s[k]);
            break;
          end;
    end;
  for i:=1 to n do
    writeln(s[i]);
end.