subroutine ops(a,br,N)
integer a(100,100)
br=0
do i=1, N
    do j=1, N
        if(a(i,j).lt.0) THEN
            if (mod(a(i,j),2).eq.0) then
            a(i,j)=0
            br=br+1
            ENDIF
        ENDIF
    ENDDO
ENDDO
RETURN
END

PROGRAM domaci2
integer a(100,100)
read *,N
do i=1,N
do j=1,N
    read *,a(i,j)
ENDDO
ENDDO
call ops(a,br,N)
print *,br
do i=1,N
do j=1,N
    print *,a(i,j)
ENDDO
ENDDO
END