珠心算测试

题目描述

珠心算是一种通过在脑中模拟算盘变化来完成快速运算的一种计算技术。珠心算训练，既能够开发智力，又能够为日常生活带来很多便利，因而在很多学校得到普及。

某学校的珠心算老师采用一种快速考察珠心算加法能力的测验方法。他随机生成一个正整数集合，集合中的数各不相同，然后要求学生回答：其中有多少个数，恰好等于集合中另外两个（不同的）数之和？

最近老师出了一些测验题，请你帮忙求出答案。

(本题目为2014NOIP普及T1)

输入输出格式

输入格式：
输入共两行，第一行包含一个整数n，表示测试题中给出的正整数个数。

第二行有n个正整数，每两个正整数之间用一个空格隔开，表示测试题中给出的正整数。

输出格式：
输出共一行，包含一个整数，表示测验题答案。

输入输出样例

输入样例#1：
4
1 2 3 4
输出样例#1：
2
说明

【样例说明】

由1+2=3，1+3=4，故满足测试要求的答案为2。注意，加数和被加数必须是集合中的两个不同的数。

【数据说明】

对于100%的数据，3 ≤ n ≤ 100，测验题给出的正整数大小不超过10,000。

思想有一点哈希就放上来了…

var 
    a:array[1..300]of integer;
    b:array[1..20000]of boolean;
    i,j,n,ans:integer;
begin
  readln(n); 
  ans:=0;
  for i:=1 to n do 
   read(a[i]);
  for i:=1 to n do
   for j:=i+1 to n do
   b[a[i]+a[j]]:=true;
  for i:=1 to n do
   if b[a[i]]=true then inc(ans);
  write(ans);
end.