Дан массив из N целых чисел. Zero- quadruple- это произвольные четыре числа из этого массива, сумма которых равна нулю. Найдите сколько различных Zero- quadruple существует в этом массиве
Дан массив из N целых чисел. Zero- quadruple- это произвольные четыре числа из этого массива, сумма которых равна нулю. Найдите сколько различных Zero- quadruple существует в этом массиве
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы