25
8
0
熟手
program ex implicit none integer,parameter :: students=5 integer :: x,y,a(students)=(/5,7,1,0,-4/) x=maxval(a(students)) y=minval(a(students)) write(*,*) x,y stop end
QQ截图20210310144942.png (18.42 KB, 下载次数: 315)
下载附件
2021-3-10 14:53 上传
错误如图
使用道具 举报
954
大师
vvt 发表于 2021-3-10 16:41 x=maxval(a) y=minval(a) 就行了。
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-14 14:27
Powered by Tencent X3.4
© 2013-2024 Tencent