program masuvu_1_19;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a:array[1..10000] of integer ;
  k,min,i,n:integer;
begin
  readln(n);
  for i:=1 to n do
  readln(a[i]);
  min:=a[1];
  for i:=1 to n do
  if min>a[i] then
  min:=a[i];
  end;
  k:=0;
  for i:=1 to n do
  if min=a[i] then
  k:=k+1;
  writeln('k= ',k);
  readln;
end.