Регистрация
zenkov2000cemen
20.02.2020 08:43
Информатика
Есть ответ 👍

Информатика на яклассе

116
500
Посмотреть ответы 2

Ответы на вопрос:

TupouChuBaK
TupouChuBaK
4,7(19 оценок)

четвёртый вариант правильный

yuyornevzkoxkdhd543
yuyornevzkoxkdhd543
4,7(20 оценок)
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.

Популярно: Информатика