import strutils, sequtils
proc getInt: int = stdin.readLine.parseInt

let N = getInt()

var
  a = newSeqWith(0, 0)
  rnk = 1

for i in 0 ..< N:
  a.add getInt()

let a0 = a[0]

for a_i in a:
  if a0 < a_i:
    rnk += 1

  echo rnk