编辑代码

program z4
    implicit none
    INTEGER day,cnt,maxx,tmax(40),a(40),i,qq,hh,tt,j
    do i=1,31
        read(*,*) tmax(i)
    enddo
    day = 0
    maxx = 0
    qq = 0
    do i=1,35
        a(i) = 0
    enddo

    if(tmax(1)>=35) a(1) = 1
    do i=2,31
        if(tmax(i)>=35) then
            a(i) = a(i-1) + 1
            a(i-1) = 0
        endif
    enddo

    do i=1,31
        if(a(i)>=3) day = day + 1
        if(a(i)>maxx) maxx = a(i)
    enddo
    ! write(2,"(A16,2X,I1,A16)") "站点7月份有",day,"次高温事件"
    do i=1,31
        if(a(i)>=3) then
            qq = qq + 1
            ! write(2,"(A4,I3,A24,I2,2X,A3)") "第",qq,"次高温事件天数",a(i),"天"
            hh = 0
            do j=i-a(i)+1,i
                hh = hh + tmax(j) - 35
            enddo
            write(2,"(A3,I1,A24,I1,2X)") "第",qq,"次高温事件强度为",hh
        endif
    enddo
    ! write(2,"(A32,I3)") "本月最长高温事件天数:",maxx
end program z4