Задание:
Дан массив из N различных целых чисел Zero — это произвольная четыре числа из этого массива, сумма которых равна нулю. Найдите сколько различных zeroсуществует на этой массиве.
Решение:
Program perebor; const n=100; var a: array[1… n] of integer; i,j,k,l: integer; beginwriteln ('Ввести массив из ',n,' целых чисел'); for i: =1 to n do read (a[i]); for i: =1 to n dofor j: =i+1 to n dofor k: =j+1 to n dofor l: =k+1 to n doif a[i]+a[j]+a[k]+a{l}=0 then writeln (a[i],',a[j],',a[k],',a[l]); end.
Знаете другой ответ?