11
4
0
入门
使用道具 举报
835
2
大宗师
program test implicit none real(4) a(7) logical Lgc(7) integer ind(1), i a=(/8,9,1,4,2,3,5/) Lgc =.true. do i=1,3 ind = minloc(a,Lgc) print*,ind ! 3,5,6 lgc(ind(1)) = .false. end do end program
查看全部评分
li913 发表于 2015-2-3 21:42 [mw_shl_code=fortran,true]program test implicit none real(4) a(7)
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-26 05:41
Powered by Tencent X3.4
© 2013-2024 Tencent