[交流] Euler 工程 第八题：在1000个数字中找到出5个连着的乘积最大的数 已有1人参与

Program euler7
    Implicit None
    Integer, Parameter :: N = 1000
    Integer :: Digit(N), MaxDigits(5)
    Integer :: I, Prod = 0,  MaxProd = 0
    Integer :: Idx = 0
    Real    :: StartTime, EndTime

    Call CPU_Time(StartTime)

    Open(100, File = "1000-digits.txt")

    Do I = 1, 20
        Read(100, '(1000I1)') Digit((I-1)*50+1:I*50)
    EndDo
    Close(100)

    Do I = 1, N - 5
        Prod = Product(Digit(I:I+4))
        If(Prod > MaxProd) Then
            MaxProd = Prod
            MaxDigits = Digit(I:I+4)
            Idx = I
        EndIf
    EndDo

    Print '(''Index = '', I4)', Idx
    Print '(''MaxDigits ='', 5I2)', MaxDigits
    Print '(''MaxProd ='', I6)', MaxProd
    Call CPU_Time(EndTime)
    Print *, EndTime-StartTime

End Program euler7