Question

FORTRAN 怎样生成一个二维数组？

用Fortran。从1、2、3、4、5、6这6个整数中，任意选3个组成一行，生成一个二维数组，要求输出时按照每行3列的格式，每行前面加序号，这样便于从最后一行的序号看出来总共有多少行，请问怎么写？谢谢。

若以下回答无法解决问题，邀请你更新回答

Answer 1

不知道你说的随机取能不能重复

写了一段，凑合着用吧

================================

program random 

implicit none 

integer i,j,c

real :: x ,a(6)

call random_seed () ! 系统根据日期和时间随机地提供种子 

j=1

 do while(j<=6)         ! 控制循环，取到6个小于等于6的整数

 call random_number (x) ! 每次的随机数就都不一样了 

 c=int(x*10)            ! 得到0-9的整数

 if(c>6 .or. c<1)cycle  ! 如果不在1-6之中，从新取

 a(j)=c

 j=j+1                  ! 控制得到6次

 end do 

do i=1,2

write(*,"(3x,i2,i2,i2)")(int(a(i*j)),j=1,3)

end do

end