Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- subroutine ops(a,br)
- 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)
- print *,br
- do i=1,N
- do j=1,N
- print *,a(i,j)
- ENDDO
- ENDDO
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement