Дан массив из 25 элементов найти сумму четырех наибольших и четырех наименьших элементов...

Question

Дан массив из 25 элементов найти сумму четырех наибольших и четырех наименьших элементов (Pascal)

Answer 1

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(25, -50, 50);

 a.Println;

 a.Sort;

 var smin:=a.Take(4).Sum;

 var smax:=a.TakeLast(4).Sum;

 Println('Сумма четырех минимальных',smin);

 Println('Сумма четырех максимальных',smax);

 Println('Их общая сумма',smin+smax);

end.

Пример

-47 29 -49 32 1 22 12 11 -2 12 39 -40 44 24 27 -5 1 -49 17 10 2 43 -8 37 44

Сумма четырех минимальных -185

Сумма четырех максимальных 170

Их общая сумма -15