Вычислить количество частей массива, стоящих меж максимальным и минимальным элементами.

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Кол-во частей меж наименьшим и наибольшим одинаково ',
      Abs(a.IndexMin-a.IndexMax)-1)
end.

Пример
n= 15
32 -66 37 -42 -89 -89 43 62 33 -53 69 68 -9 -33 -43
Кол-во частей между наименьшим и наибольшим одинаково 5

Во вложеном файле приведено решение.
Это громадное ччисло (2147483647)- заключительное возможное число целочисленного типа.