Массив: Найти сумму членов массива, расположенных между его максимальным и минимальным значениями...

var 
  a:array of integer;
  s:real;
  n,idmax,idmin,i:integer;  
begin
  randomize;
  n:=ReadlnInteger('n=');
  setlength(a,n);
  idmax:=0;
  idmin:=0;
  for i:=0 to n-1 do begin
    a[i]:=random(100)-50;
    write(a[i],' ');
    if a[i]>a[idmax] then idmax:=i;
    if a[i]<a[idmin] then idmin:=i;
  end;
  writeln;
  for i:=min(idmax,idmin) to max(idmax,idmin) do s:=s+a[i];
  writeln('S=',s);
end.

begin
  var n := ReadInteger;
  var a := Range(1,n).ToArray;
  loop n*n do swap(a[Random(n)],a[Random(n)]);
  a.Println;
  WriteLn('1 способ: ', a.Where((x,i)->(i>=min(a.IndexMin,a.IndexMax))and((i<=max(a.IndexMin,a.IndexMax)))).Sum);
  WriteLn('2 способ: ', a[min(a.IndexMin,a.IndexMax):max(a.IndexMin,a.IndexMax)+1].Sum);
  WriteLn('3 способ: ', a[a.IndexMin:a.IndexMax+1].Sum + a[a.IndexMax:a.IndexMin+1].Sum);
end.

var 
  a:array of integer;
  s:real;
  n,idmax,idmin,i,j:integer;  
begin
  randomize;
  n:=ReadlnInteger('n=');
  setlength(a,n);
  idmax:=0;
  idmin:=0;
  for i:=0 to n-1 do begin
    repeat
      a[i]:=random(100)-50;//диапазон -50 до 49, размер массива должен быть меньше 101 элемента
      j:=i-1;
      while j>-1 do if a[i]=a[j] then break else j:=j-1;
     until j=-1; 
    write(a[i],' ');
    if a[i]>a[idmax] then idmax:=i;
    if a[i]<a[idmin] then idmin:=i;
  end;
  writeln;
  for i:=min(idmax,idmin) to max(idmax,idmin) do s:=s+a[i];
  writeln('S=',s);
end.