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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/12 08:24:20
怎样求最长连续降水日数用fortran程序编写,
xQ_KP*7}Ѓo=hҠd*3aaFd2T2l¾ݽۓ_C;pkOpWZk3x<{Q^QK1d~ SSO 3(eXY@ P g VrFýK4`s+O3K܇D:z% . r" $;ĥwD,nOC_QHâ~/bY rb%<8+pfBDFI>26-& ۸ dG)]۠BWiqbAO,E3

怎样求最长连续降水日数用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
今儿破天荒了,俺竟然写了这样的代码~~~~