{
TASK: psort
LANG: Pascal
}
const
  maxn=50000;

var
   a,b:array[1..maxn] of longint;
   n:longint;



procedure inp;
var
  i:longint;
  f:text;
begin
  assign(f,'');
  reset(f);
  read(f,n); 
  for i:=1 to n do
     read(f,a[i]);
  close(f);

end;

function ndnp:longint;
var
  i,j:longint;
  max:longint;
begin
  b[1]:=1;max:=1;
  for i:=2 to n do
  begin
    b[i]:=1;
    for j:=i-1 downto 1 do
    if a[j]<a[i] then
      if b[j]>=b[i] then
      begin
         b[i]:=b[j]+1;
         if b[i]>max then begin max:=b[i];break; end;
      end;
  end;
  ndnp:=max;
end;

begin
  inp;
  writeln(n-ndnp);
end.
