2017.1.13【初中部 GDKOI】模拟赛B组 逆光 题解

原题：

http://172.16.0.132/senior/#contest/show/1894/0

题目描述：

Zyh养着n盆太阳花，它们被排在一列直线上。为了简化问题，太阳花的朝向只有向左和向右这两种。Zyh非常喜欢这些花，于是他在每盆花的上方放置了光源。
太阳花和Zyh幸福地生活着，然而每次要关掉这些光源的时候就会出现一个问题。因为Zyh的动作问题，他每次只能关掉一个光源，在关掉这个光源后，这个光源下方的花就会休眠。然而，对于每一个未休眠的太阳花，如果它的朝向向左，那么每看到一个在它左边的光源关闭，它就会认为自己的人生有些黑暗，于是对Zyh的好感减1。同样地，如果它的朝向向右，那么每看到一个在它右边的光源关闭，也会导致它对Zyh的好感减1。
Zyh不想看到太阳花对他的好感下降太多。于是他想知道关掉所有灯后，太阳花下降的好感总值是多少。

输入格式：

输入包含两行。第一行是一个数正整数n表示太阳花的盆数。然后第二行是n个由空格隔开的0或1。0表示向左，1表示向右。

输出格式：

只有一个数，太阳花下降的好感总值。

样例输入：

输入1：
5
0 0 0 1 0

输入2：
5
1 0 1 0 1

样例输出;

输出1：
1
输出2：
3

数据范围限制：

对于30%的数据 n<10
对于70%的数据 n<=5000
对于100%的数据 n<=1000000

分析：

对于“1”来说，关掉TA上方的灯后影响的是TA左面的所有“0”；
对于“0”来说，关掉TA上方的灯后影响的是TA右面的所有“1”；
于是我们可以从1到n枚举，统计每个“0”之前有多少个“1”，然后统计一下输出；
即：

实现：

var
        n,i,t,q:longint;
        ans:int64;
        a:array[0..1000005]of longint;
begin
        readln(n);
        for i:=1 to n do
        begin
                read(a[i]);
                if a[i]=1 then inc(t);
                if a[i]=0 then inc(ans,t);
        end;
        writeln(ans);
end.