20
8
0
熟手
使用道具 举报
954
大师
write(*,*) sum( a , mask = ( a > 3.0 ) ) !// 大于 3.0 的值参与求和
Program www_fcode_cn Implicit None real :: a(9) = [1.,2.,3.,4.,5.,6.,7.,8.,9.] write(*,*) sum( a( [1,3,9] ) ) !// 1,3,9 求和 write(*,*) sum( a(1:4) ) !// 1到4求和 write(*,*) sum( a ) - a(5) !// 除了5,其余求和 End Program www_fcode_cn
本版积分规则 发表回复
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-24 21:11
Powered by Tencent X3.4
© 2013-2024 Tencent