read N
mountains=()
for i in $( seq 0 $(( N - 1 )) ); do
  read height
  mountains=("${mountains[@]}" $height)
done

GOV=1
for i in $( seq 1 $(( N - 1)) ); do
  for j in $( seq 0 $(( i - 1 )) ); do
    if [ ${mountains[$i]} -lt ${mountains[$j]} ]; then
      break
    elif [ $j -eq $(( i - 1 )) ]; then
      GOV=$(( GOV + 1 ))
    fi
  done
done

echo $GOV