Ответы на вопрос:
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.
Популярно: Информатика
-
irajuta8209.01.2021 16:36
-
lilikykytik2129.09.2022 06:42
-
vanyadrachuk200426.03.2021 00:01
-
александрадейкун17.05.2020 18:08
-
Goncharovskai25.02.2020 09:57
-
Hiccjhcvkjxg25.06.2020 20:20
-
masha1990210.05.2020 20:13
-
dia20703.09.2021 03:53
-
Рыбка1Золотая12.06.2023 13:19
-
nataliacosciuc14.11.2022 08:25