Ответы на вопрос:
// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',99); a.println; var s: =a.where(x-> x> 0); writeln('длина отрезка равна ',s.max-s.min) end. пример n= 15 83 26 56 73 47 21 -8 91 72 7 60 12 25 36 62 длина отрезка равна 84
Популярно: Информатика
-
del983213.05.2023 17:51
-
podvorskij03.10.2022 19:39
-
Lafemme117.05.2022 14:10
-
Zxcvvn22.01.2020 05:58
-
chiginavera13.07.2022 16:30
-
Kamilla135123.10.2020 11:14
-
sssfgdgd07.11.2020 18:56
-
VasyaKotikSnake01.02.2020 18:18
-
Костя11111315.06.2020 12:50
-
natslig30.05.2021 23:52