
Imports System.Console
Module Module1
    Dim n As Int64
    Dim a() As Integer
    Dim ans As Int64
    Sub Main()
        n = ReadLine()
        Dim s() As String = ReadLine.Split
        ReDim a(s.Length - 1)
        For i = 0 To s.Length - 1
            a(i) = s(i)
        Next
        For i = 0 To a.Length - 1
            If ((i + 1) * a(i)) Mod 2 = 1 Then
                ans += 1
            End If
        Next
        WriteLine(ans)
    End Sub
End Module
