Real 数( 10 ) , 和，大，小
integer i
Read(*,*) 数
大 = 数(1)
小 = 数（1）
和 = 数(1)
Do i = 1 , 10
大 = max( 大，数(i))
小类似
和 = 和 + 数（i）
End Do
和 = 和 / 10.0
当然，Fortran 源码里不能用中文表示变量。
我给你提供的，是代表思路的伪代码。我不希望给你提供完整的代码，剩下的自己去完成吧。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024