const

 nn = 10000;

var

 a: array[1..nn] of integer;

 i, n, min, b: integer;

begin

 readln(n);

 b := 1;

 for i := 1 to n do read(a[i]);

 min := a[1];

 for i := 2 to n do  

   if (a[i] < min) then  

   begin

     min := a[i];

     b := 1;

   end

   else if (a[i] = min) then b := b + 1;

 writeln(b);

end.