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