0
已采纳
for i:=1 to n do
begin
for j:=i+1 to n do
begin
c:=a[i]+a[j];
if (c<=1000)and b[c] then
begin
inc(ans);
b[c]:=false;
end;
end;//我的是二重循环,时间短一些,但可能你会看不懂,因为我这个是pascal
0
0
0
for(i=0;i<n;i++)
{
flag=0;
for(j=0;j<n;j++)
{
for(k=j+1;k<n;k++)
{
if(a[j]+a[k]==a[i])
{
count++;
flag=1;
break;
}
}
if(flag==1)
{
break;
}
}
}
0
0
0
0
0
0
0
0
0
0
0
