integer::N,i integer,allocatable::X(:) integer::koma=0 read * ,N allocate(X(N)) read *, X do i=1,N koma = koma + MOD(X(i),2) end do print '(i0)', ABS(N-2*koma) end program