解题思路:
一开始做的时候没有完全理解题目,不知道
2+3
和
1+4
属于同一种情况,后来加了一个布尔型数组,再用三重循环枚举,最后输出答案总数即可。
程序:
var
a:array[1..100]of longint;
f:array[1..10000]of boolean;
n,ans,i,j,k:longint;
begin
//assign(input,'count.in');reset(input);
//assign(output,'count.out');rewrite(output);
readln(n);
fillchar(f,sizeof(f),true);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
for k:=1 to n do
if (a[i]+a[j]=a[k]) and (f[k]) then begin f[k]:=false; inc(ans); end;
writeln(ans);
//close(input);close(output);
end.
版权属于: Chris
转载时必须以链接形式注明原始出处及本声明。