program main
    implicit none
    integer n,i
    integer,allocatable,dimension(:)::a
    integer ::odd=0,even=0
    read(*,*)n
    allocate(a(n))
    read(*,*)a
    do i=1,n
        if(mod(a(i),2)==0)even=even+1                
        if(mod(a(i),2)/=0)odd=odd+1
    enddo
    write(*,*)abs(even-odd)
end program main