-module('Main').
-export([main/1]).

main(_) ->
    {ok, [N]} = io:fread("", "~d"),
    A = [XX || XX <- lists:map(fun(_) ->
                                       {ok, [X]} = io:fread("", "~d"),
                                       X
                               end,
                               lists:seq(1, N))],
    Ans = test(A),
    io:format("~p~n", [Ans]),
    halt().


test([]) ->
    0;
test([H]) ->
    H rem 2;
test([H1, _H2|T]) ->
    case H1 rem 2 == 1 of
        true ->
            1 + test(T);
        false ->
            0 + test(T)
    end.
