利用allocatable语言实现
read(*,*)加数组名给数组赋相应的值
program test_02
integer stuNum
integer, allocatable :: a(:)
write(*,*)"有多少个学生"
read(*,*)stuNum
allocate(a(stuNum))
forall(i=1:stuNUm)
a(i)=i
endforall
write(*,*)a
end
利用allocatable语言实现
read(*,*)加数组名给数组赋相应的值
program test_02
integer stuNum
integer, allocatable :: a(:)
write(*,*)"有多少个学生"
read(*,*)stuNum
allocate(a(stuNum))
forall(i=1:stuNUm)
a(i)=i
endforall
write(*,*)a
end