переставить элементы массива в порядке убывания и отыскать сумму частей массива

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

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

begin

 var a := ArrRandom(ReadInteger('n='), -10, 10);

 a.Println;

 a := a.OrderDescending.ToArray;

 a.Println;

 var (max, min) := (a.Max, a.Min);

 var i1 := a.IndexesOf(t -gt; t = max).Last;

 var i2 := a.IndexOf(min);

 a?[i1 + 1:i2].Sum.Println

end.

Пример

n= 15

-10 9 9 -10 -5 -7 -9 1 -8 -10 1 7 10 4 -5

10 9 9 7 4 1 1 -5 -5 -7 -8 -9 -10 -10 -10

-3

У, поначалу необходимо отыскать макс и мин элементы. 
Max = A(1) 
nMax = 1 
Min = A(1) 
nMin = 1 
For i = 2 to N 
if A(i) gt; Max Then 
Max = A(i) 
nMax = i 
End If 
if A(i) lt; Min Then 
Min = A(i) 
nMin = i 
End If 
Next i 
Таким образом мы узнали макс и мин элементы, а основное, их номера nMax и nMin. 
Проверим, какой номер больше, и создадим так, чтоб было nMin lt; nMax. 
Если nMin gt; nMax, поменяем их местами 
If nMin gt; nMax Then 
Q = nMin 
nMin = nMax 
nMax = Q 
End If 
Сейчас необходимо отсортировать элементы меж ними пузырьковой сортировкой по убыванию 
For i = nMin + 1 To nMax - 1 
Тут вставляется метод пузырьковой сортировки, который я не помню. Поищи в Вебе. 
Next i