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