怎样求最长连续降水日数用fortran程序编写,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 07:50:42

怎样求最长连续降水日数用fortran程序编写,
怎样求最长连续降水日数
用fortran程序编写,

怎样求最长连续降水日数用fortran程序编写,
iMAXCount=0 ! 最大天数
iCurCount=0 !某一次连续降水日数统计
Do i=1,n ! 有n天需要统计的
If (arain(i).ne.0) Then ! 降水量不为0时
iCurCount=iCurCount+1
Else ! 降水为0了:)
iMaxCount = max(iMaxCount,iCurCount)
iCurCount = 0
End If
End Do
今儿破天荒了,俺竟然写了这样的代码~~~~