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

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