Три числа. Дан массив из целых N чисел а1, а2, .....аn. Нужно проверить, есть ли в этом массиве три числа сумма которых равна нулю.
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;