   implicit none
   integer N, i, j
   integer, allocatable :: A(:)   
   read(*, *) N
   allocate (A(1:N))
   read(*, *) A(1:N)
   j = 0
   do  
      do i = 1, N
         if(mod(A(i),2) == 0) then
	         A(i) = A(i) / 2
	     else 
	         goto 1
	     end if
      end do
	  j = j + 1
   end do
   1 continue
   write(*, *) j