program main implicit none integer:;r integer::c data((m(r,c),r=1,5),c=1,5)/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25/ write(*,"(5I)")(m(r,c),c=1,5)
现在静不下心来帮你回答啊~