解题思路: 一开始做的时候没有完全理解题目,不知道 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 原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v7wn.html 转载时必须以链接形式注明原始出处及本声明。