Ответы на вопрос:
begin var a := ReadArrInteger(ReadInteger); if a.Any(x -> x<0) then a.Where(x -> x<0).Print else Print(0)end.
Пример работы:
Популярно: Информатика
-
77Джи7728.01.2023 10:29
-
Alle96330.05.2020 16:05
-
daryanesterchuk24.09.2020 16:32
-
bog201713.11.2022 23:48
-
vittoriakostenk16.11.2021 10:09
-
svetaabc14.01.2021 12:58
-
maksimbrykin201703.03.2021 07:49
-
ппсомо365703.03.2022 14:39
-
idkcjdosjn08.08.2020 08:46
-
dianochka47111.02.2022 16:11