使用循环嵌套办法“遍历”实现二维数组的输入输出
program test_02
integer a(5,5)
do i=1,5
do j=1,5
read(*,*)a(i,j)
enddo
enddodo i=1,5
do j=1,5
write(*,*)a(i,j)
enddo
enddo
end
使用循环嵌套办法“遍历”实现二维数组的输入输出
program test_02
integer a(5,5)
do i=1,5
do j=1,5
read(*,*)a(i,j)
enddo
enddodo i=1,5
do j=1,5
write(*,*)a(i,j)
enddo
enddo
end