program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var
  n,i,j,m,min,c,k,x:integer;
  a:array[1..1000]of integer;
begin
  read(n);
  k:=0;
  for i:=1 to n do read(a[i]);
  x:=a[1];
  for i:=1 to n do begin
    min:=a[i];
    m:=i;
    for j:=i to n do begin
      if a[j]<min then begin
        min:=a[j];
        m:=j;
      end;
    end;
    if (min=x) or (a[i]=x) then k:=k+1;
    c:=a[m];
    a[m]:=a[i];
    a[i]:=c;
  end;
  writeln(k);
  readln;
  readln;
end.