my $n=<>;
$odd+=$_%2 for glob<>;

if ($odd * 2 > $n) {
    print$odd*2-$n
} else {
    print$n-$odd*2
}