Ответы на вопрос:
// pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! procedure astento; begin var t: =arr(-2,3,-1,4,-5,2,1,0,1,2,1,-3,5); var s: =t.orderby(p-> abs(p)); // последовательность памяти не занимает writeln('сумма двух наименьших по модулю: ',s.take(2).sum); writeln('сумма двух наибольших по модулю: ',s.takelast(2).sum) end; begin astento end. результат сумма двух наименьших по модулю: -1 сумма двух наибольших по модулю: 0 замечание: в данном случае "ранжированная" последовательность была такой: 0 -1 1 1 1 -2 2 2 3 -3 4 -5 5
Популярно: Информатика
-
IG7727.11.2022 12:01
-
dashabur200527.01.2020 13:48
-
Гусяра22808.02.2021 02:40
-
saveliy820.07.2022 14:02
-
айфон6666608.03.2020 14:43
-
STALKER14717.02.2022 14:46
-
0503200907.12.2020 19:32
-
leshaChi06.01.2021 05:00
-
wrrrr29.10.2022 22:00
-
andriybiguniak228.09.2021 18:43