Дан массив из N целых чисел. Zero- quadruple- это произвольные четыре числа из этого массива, сумма которых равна нулю. Найдите сколько различных Zero- quadruple существует в этом массиве
Answers & Comments
Toouren
Var a:array [1..100] of integer; n, i, zq, k, l, j: integer; begin readln(n); for i:=1 to n do a[i] := random(500) - 249; for i := 1 to n do for j := i to n do for k := j to n do for l := k to n do if a[i] + a[j] + a[k] + a[l] = 0 then inc(zq); writeln(zq); end.
Answers & Comments
n, i, zq, k, l, j: integer;
begin
readln(n);
for i:=1 to n do a[i] := random(500) - 249;
for i := 1 to n do
for j := i to n do
for k := j to n do
for l := k to n do
if a[i] + a[j] + a[k] + a[l] = 0 then inc(zq);
writeln(zq);
end.