Используя подпрограмму ранжирования, найти сумму 2-х наименьших и 2-х наибольших по модулю элементов массива: т= (-2,3,-1,4,-5,2,1,0,1,2,1,-3,5)

234

431

Посмотреть ответы 2

Ответы на вопрос:

аоаоаоаоатте

Информатика

4,6(36 оценок)

// 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