首页 > 代码库 > 2014珠心算测验

2014珠心算测验

题目描述 Description

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

某学校的珠心算老师采用一种快速考察珠心算加法能力的测验方法。他随机生成一个正整数集合,集合中的数各不相同,然后要求学生回答:其中有多少个数,恰好等于集合中另外两个(不同的)数之和?  最近老师出了一些测验题,请你帮忙求出答案。 

 

输入描述 Input Description

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

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

 

输出描述 Output Description


输出共一行,包含一个整数,表示测验题答案。

样例输入 Sample Input

4

1 2 3 4

样例输出 Sample Output

2

数据范围及提示 Data Size & Hint

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

 
 
 

题解:

模拟。

没什么好说的,注意审题都可以ac。注意:答案要去重。

var n,i,j,ans:longint;

    a:array[0..1001]of longint;

    vis:array[0..20001]of boolean;

begin

 readln(n);

 for i:=1 to n do

  begin

   read(a[i]);

   vis[a[i]]:=true;

  end;

 for i:=1 to n do

  for j:=1 to i-1 do

   if vis[a[i]+a[j]] then

    begin

     inc(ans);

     vis[a[i]+a[j]]:=false;

    end;

 write(ans);

end.

2014珠心算测验