5812. 【NOIP提高A组模拟2018.8.14】 区间

Description

每一个机房中总有一个红太阳。有一天，AmberFrame 来到机房，发现桌上有不知道哪个蒟蒻放上的问 题： 有一个 n 个数的序列，一开始所有的数都是 0，每次可以将一个区间 [l, r](l ≤ r) 内的数 +1，求到达最 终状态的最少操作次数。 AmberFrame 非常强，自然不会把时间花在这种水题上。因此他就把任务交给了你，如果不会做的话，他 可能就会觉得你就是那个放问题的蒟蒻了而把你批判一番了。 

 

Input

第一行包含一个正整数 n，表示序列的长度。
第二行包含 n 个非负整数 a1, a2, ..., an，表示最终的状态。

 

Output

输出的第一行是一个正整数 m，表示最少的操作次数。 接下来 m 行每行两个正整数 li , ri，表示一次操作。你需要保证 1 ≤ li ≤ ri ≤ n。 保证最少次数 m ≤ 10^5，输出可以以任意顺序输出。 

 

Solution

方法一：

用分治的思想，每次找到这个区间最小的，

然后分为左区间和右区间，重复以上操作。

方法二：

如图：n=6

若a[i]>a[i-1]，就标记(a[i]-a[i-1])个+1，

若a[i]<a[i-1]，就标记(a[i-1]-a[i])个-1，

对于每个+1和向右最靠近这个+1的-1匹配，即为结果。

下面代码为方法二。

 

代码

var
  n,ans,nm:longint;
  a,l:array [0..100001] of longint;
procedure init;
var
  i:longint;
begin
  readln(n);
  ans:=0;
  for i:=1 to n do
    begin
      read(a[i]);
      if a[i]>a[i-1] then
        ans:=ans+a[i]-a[i-1];
    end;
end;

procedure main;
var
  i,j,k:longint;
begin
  nm:=0;
  for i:=1 to n+1 do
    begin
      if a[i]>a[i-1] then
        begin
          k:=a[i]-a[i-1];
          for j:=1 to k do
            begin
              inc(nm);
              l[nm]:=i;
            end;
        end;
      if a[i]<a[i-1] then
        begin
          k:=a[i-1]-a[i];
          for j:=1 to k do
            begin
              writeln(l[nm],' ',i-1);
              dec(nm);
            end;
        end;
    end;
end;

begin
  assign(input,'range.in');
  assign(output,'range.out');
  reset(input);
  rewrite(output);
  init;
  writeln(ans);
  main;
  close(input);
  close(output);
end.