Ответы на вопрос:
//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию begin var a : = arrrandominteger(30, -2, 65); writeln('минимальное из положительных чисел ', a.where(x -> x > 0).min); if a.any(x -> x < 0) then writeln('максимальное из отрицательных ', a.where(x -> x < 0).max) else writeln('нет отрицательных '); end.
Популярно: Информатика
-
askarova64514.12.2020 09:29
-
катя509231.12.2021 16:31
-
zinina117803.06.2021 14:27
-
arsenenko13.06.2022 13:53
-
Дидог26.04.2023 21:16
-
Vladik45105117.06.2020 02:42
-
Aruzhan012116.02.2021 16:50
-
Sino4ka09.03.2020 22:40
-
Эмиль0807201326.04.2021 19:25
-
amina55565806.03.2020 19:27