Question

怎样在fortran编写数组A(m,n)求最大元素的程序，请写出参考

编写数组A(m,n)求最大元素在的程序

Answer 1

!time:二○○八年六月十日10时33分
program maxpos
implicit none
integer,parameter::m=1000,n=1000
real::a(m,n),themax
integer::i,j
!数据的输入你自己改。我这里给数组a随机赋值。
call random_seed()
call random_number(a)

!最大值
themax=maxval(a)
print*,"最大值：",themax
!最大值位置
do i=1,n
do j=1,m
if(a(j,i)==themax) print* ,"最大值位置：(", j , "," , i ,")"
end do
end do
print* ,"回车退出"
pause
end program maxpos

Answer 2

可以直接用 maxval 得到最大值
用 maxloc 得到最大值的位置

Answer 3

你好！
可以直接用
maxval
得到最大值
用
maxloc
得到最大值的位置
如有疑问，请追问。

Answer 4

楼主呢？
上面的上对的。