open System 
open System.Text

type Explicit =          
    static member inline ($) (_:int32, _:Explicit) = int
    static member inline ($) (_:int64, _:Explicit) = int64

let inline convert (value:'a): 'b = 
    (Unchecked.defaultof<'b> $ Unchecked.defaultof<Explicit>) value

let inline fromInt (x: int): 'a = convert x

module NumericLiteralG =
    let inline FromZero(): 'a = LanguagePrimitives.GenericZero
    let inline FromOne(): 'a = LanguagePrimitives.GenericOne
    let inline FromInt32 (n: int): 'a = fromInt n

let R() = Console.ReadLine()

let f (p: int array) =
    p
    |> Array.fold(fun (min', cnt) x -> 
        if x < min' then 
            x, cnt + 1
        else 
            min', cnt) (p.[0], 1)
    |> snd 

let N = R()
let P = R().Split() |> Array.map (string >> int) 

f P 
|> printfn "%i"