Const
 n = 10;

Var
 i,t,v_min,v_max,i_max,max,i_min,min,i1,i2: Integer;
 vector : Array [1..n] Of Integer;

Begin

 Randomize;

 Writeln('Input data:');
 Writeln('n= ',n);
 Write('v_min= ');
 ReadLn(v_min);
 Write('v_max= ');
 ReadLn(v_max);

 Writeln('Initial vector:');
 for i:=1 to n do
  begin
   vector[i]:=Random(v_max-v_min + 1) + v_min;
   Write(vector[i]:5);
  end;
 WriteLn;

 max:= vector[1];
 i_max:= 1;
 min:= vector[1];
 i_min:= 1;

 for i:=2 to n do
  begin

   if (vector[i]>max) then
    begin
     max := vector[i];
     i_max := i;
    end;

   if (vector[i] < min) then
    begin
     min := vector[i];
     i_min := i;
    end;

  end;

 if min=max then
  Writeln('All elements are equal!')
 else
  begin
   WriteLn;
   Writeln('Output data:');
   WriteLn('max= ', max, ' i_max= ', i_max);
   WriteLn('min= ', min, ' i_min= ', i_min);

   if i_min<i_max then
    begin
     i1:=i_min+1;
     i2:=i_max-1;
    end
   else
    begin
     i1:=i_max+1;
     i2:=i_min-1;
    end;

   for i:=i1 to ((i1+i2) div 2) do
    begin
     t:=vector[i];
     vector[i]:=vector[i2-(i-i1)];
     vector[i2-(i-i1)]:=t;
    end;

   WriteLn('Output vector:');
   for i:=1 to n do
    Write(vector[i]:5);
  end;

 ReadLn

End.