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

答案:3 悬赏:0 手机版

解决时间 2021-03-24 08:08

提问者网友：动次大次蹦擦擦
2021-03-24 04:18

最佳答案

五星知识达人网友：鱼芗
2021-03-24 05:47

!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

全部回答

1楼网友：大漠
2021-03-24 05:58

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

2楼网友：猎心人
2021-03-24 05:53

楼主呢？
上面的上对的。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息