type
  arrayType = array[1..n] of integer;

var
  arr : arrayType;
  i : integer;
  count : integer;
  max : integer;

begin
   for i := 1 to n do readln(arr[i]);

   for i := 1 to n do
   begin
    if arr[i] > max then max := arr[i];
   end;

   for i := 1 to n do
   begin
     if not (arr[i] = max) then count += 1;
   end;

   writeln(count);
end.