Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dimension A(6,10)
- do 10 i=1,6
- do 20 j=1,10
- read(*,*) A(i,j)
- 20 continue
- 10 continue
- do 30 i=1,6
- SUM = 0
- do 40 j=1,10
- SUM = SUM + A(i,j)
- 40 continue
- write(*,*) SUM
- 30 continue
- do 60 i=1,6
- SUM1 = 0
- do 50 j=1,10
- SUM1 = SUM1 + A(j,i)
- 50 continue
- write(*,*) SUM1
- 60 continue
- do 80 i=1,6
- do 70 j=1,10
- SUM2 = SUM2 + A(i,j)
- 70 continue
- 80 continue
- write(*,*)SUM2
- STOP
- END
Advertisement
Add Comment
Please, Sign In to add comment