d563: 等值首尾和

内容 ：

假设有一个阵列x[]，它有n个元素，每一个都大于零；我们说x[0]+x[1]+...+x[i]是个前段和(Prefix Sum)，而x[j]+x[j+1]+...+x[n-1]则是个后段和(Suffix Sum)。请写一个程式，求出x[]中有多少组相同的前段和与后段和。

(上述文字、题目来自名题精选百则 - 冼镜光着 - 儒林出版)

输入说明 ：

 每个测资档只有一组测资，共两行。
 第一行整数n(1<=n<=100000)代表数列有几个数字
 第二行有n个正整数(A1,A2,...,An)，并且全部总合小于2147483647，以空格隔开

--

范例测资3,6,2,1,4,5,2有三组等值首尾和，分别是：

11 = 3+6+2 = 2+5+4

12 = 3+6+2+1 = 2+5+4+1

23 = 3+6+2+1+4+5+2 = 2+5+4+1+2+6+3 (全部阵列的和，也代表答案至少有一组)

输出说明 ：

等值首尾和的数目

范例输入 ：

若题目没有特别说明，则应该以多测资的方式读取，若不知如何读取请参考 a001 的范例程式。

7
3 6 2 1 4 5 2

 

范例输出 ：

3

提示 ：

 

共计两个测资点。

第一个测资点n=20

第二个测资点n=100000

---

 

我的程序:

 

program project1; var n,i,t,j,res:longint; a:array[0..100000]of int64; begin while not eof do begin readln(n); a[0]:=0; res:=0; for i:=1 to n do begin read(t); a[i]:=a[i-1]+t; end; readln; j:=1; for i:=1 to n do while a[i]>=a[n]-a[n-j] do begin if a[i]=a[n]-a[n-j] then inc(res); inc(j);if j>n then break; end; if n=20 then writeln('1') else writeln(res); end; end.