5
3
0
入门
使用道具 举报
118
2
大师
program matrix implicit none integer :: a(2,3) integer :: i,j a = reshape([1,2,3,4,5,6], [2,3], order = [2,1]) print *, a print * do i = 1, 2 print *, (a(i, j), j = 1, 3) end do end program matrix
41
熟手
program matrix implicit none integer :: a(2,3) a = reshape([1,2,3,4,5,6], [2,3]) write(*,'(*(3(i3,1x),/))') a end program matrix
青衣巷 发表于 2021-4-4 16:29 [mw_shl_code=fortran,true]program matrix implicit none integer :: a(2,3)
878
宗师
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给注册后积极发言的新人
颁发给论坛注册1年以上的网友
颁发给发帖量超过一定数量的坛友
|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode
GMT+8, 2021-4-19 07:59
Powered by Discuz! X3.2
© 2001-2017 Comsenz Inc.