Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program n11
- integer::i,b=1,y=0
- integer,parameter::m=3,n=8
- real::A(1:m,1:n)
- open(101,file='mat.txt',status='old')
- do i=1,m
- read(101,*) A(i,:)
- call factorial(A,i,b,y)
- do j=1,n
- write(*,'(f7.2\)') A(i,j)
- end do
- print*, ' '
- end do
- close(101)
- write(*,'(/"Answer ::",i)') b
- contains
- subroutine factorial(A,i,b,y)
- integer::i,j,y,b
- real,dimension(:,:)::A
- do j=2,n,2
- if (A(i,j).EQ.0) then
- y=y+1
- b=b*y
- end if
- end do
- end subroutine
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement