uses crt;
var a:array[1..100] of integer;
    n:integer;

function cucdai(i:integer):boolean;
begin
  if i=1 then if a[1] > a[2] then exit(true) else exit(false);
  if i=n then if a[n]>a[n-1] then exit(true) else exit(false);
  if (i>1) and (i<n) then
    if (a[i]>a[i-1]) and (a[i]>a[i+1]) then exit(true) else exit(false);
  exit(false);
end;

procedure doc;
var i:integer;
begin
  assign(input,'D:\text\CUCDAI.INP'); reset(input);
  readln(n);
  for i:=1 to n do read(a[i]);
end;

procedure kq;
var i,j,min,k:integer;
begin
  assign(output,'D:\text\CUCDAI.OUT'); rewrite(output);
  min:=high(integer);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if (j-i-1<min) and (j-i-1>0) then
        if cucdai(i) and cucdai(j) then min:=j-i-1;
  writeln(min);
end;

BEGIN
  clrscr;
  doc; kq;
END.