记录编号	144676	评测结果	AAAAAAAAAA
题目名称	[NOIP 2014PJ]珠心算测试	最终得分	100
用户昵称	铁策	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2014-12-25 12:44:50	内存使用	0.22 MiB

program count;
var
a:array[1..100] of longint;
b:array[1..20000] of longint;
i,j,k,l,m,n:longint;
begin
assign(input,'countb.in');
reset(input);
assign(output,'countb.out');
rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
  for j:=i+1 to n do
  inc(b[a[i]+a[j]]);
m:=0;
for i:=1 to n do
if b[a[i]]>0 then inc(m);
writeln(m);
close(input);
close(output);
end.