Question

Три числа. Дан массив из целых N чисел а1, а2, .....аn. Нужно проверить, есть ли в этом массиве три числа сумма которых равна нулю.

Answer 1

for i=1 to n do
 for j=1 to n do
   for k=1 to n do
     begin
      if ((i<>j) and (j<>k)) then sum=a[i]+a[j]+a[k];
      if(sum=0) then куданибудь выводиш числа a[i], a[j] a[k]
    end;