Ответы на вопрос:
Const n = 20; var a: array[1..n] of integer; i: integer; flag: boolean; begin randomize; writeln('элементы массива'); for i : = 1 to n do begin a[i] : = random(19999) - 9999; write(a[i]: 6); end; writeln; i : = 1; flag : = false; repeat flag : = (sign(a[i]) = sign(a[i + 1])); i : = i + 1 until flag or (i > n); if flag then writeln('есть пара соседних элементов с одним знаком') else writeln('нет пар соседних элементов с одним знаком') end. тестовое решение: элементы массива 2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844 есть пара соседних элементов с одним знаком
Популярно: Информатика
-
ponhik415.09.2022 13:08
-
Marksh14.05.2020 11:11
-
ALIONA202015.08.2020 23:21
-
Ильяна11130.05.2023 07:24
-
vlad2280322.04.2021 15:46
-
Vitadem115.06.2020 20:09
-
vasiapasi1710.12.2020 22:29
-
slaider129.01.2021 10:38
-
lanchik0323.05.2023 01:52
-
dadhhcdgg18.02.2022 22:27