记录编号	322132	评测结果	AAAAAAAAAA
题目名称	[NOIP 2014PJ]珠心算测试	最终得分	100
用户昵称	wzz	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2016-10-14 18:54:47	内存使用	0.58 MiB

var
i,k,m,c,b:longint;
a:array[0..100000]of longint;
q:array[0..100000]of boolean;
begin
assign(input,'countb.in');
assign(output,'countb.out');
reset(input);
rewrite(output);
read(m);
for i:=1 to m do read(a[i]);
for i:=1 to m-1 do
for k:=i+1 to m do begin
c:=a[i]+a[k];
q[c]:=true;
end;
for i:= 1to 100000 do if q[a[i]] then inc(b);
write(b);
close(input);
close(output);
end.