Imports System

Public Module Module1

    Public Sub Main()

        dim cantidadLLuvia as integer

        dim nroDia as integer

        dim diasConLLuvia as integer

        dim cantidadDiaMenorLLuvia as integer 

        dim diaMenorLLuvia as integer

        dim diaMayorLLuvia as integer 

        dim cantidadLLuviaMayorDia as integer

        dim promedio as integer

    diaMenorLLuvia = 10000 

        for nroDia = 1 to 10 

        Console.WriteLine ("Por favor ingrese la cantidad de lluvia del día: " + nroDia.ToString)

        cantidadLLuvia  = integer.parse (console.ReadLine)

        if cantidadLLuvia.ToString > 0 then

            promedio = promedio.ToString + cantidadLLuvia   

            diasConLLuvia = diasConLLuvia + 1

        if cantidadLLuvia.ToString < diaMenorLLuvia.ToString then

                cantidadDiaMenorLLuvia = cantidadLLuvia

                diaMenorLLuvia = nroDia.ToString

            end if      

        if cantidadLLuvia > cantidadLLuviaMayorDia then

                cantidadLLuviaMayorDia = cantidadLLuvia

                diaMayorLLuvia = nroDia

    end if          

end if 

        next nroDia

    if diaMenorLLuvia = 10000 then

        Console.WriteLine ("NUNCA LLOVIÓ EN ESTE PERÍODO")

    else

        promedio = promedio / diasConLLuvia

        Console.WriteLine ("La cantidad de lluvia promedio es de: ", promedio.ToString) 

        Console.WriteLine ("La menor cantidad de mm llovidos fue de: " + cantidadDiaMenorLLuvia.ToString + " el día " + diaMenorLLuvia.ToString)

        Console.WriteLine ("La mayor cantidad de mm llovidos fue de: " + cantidadLLuviaMayorDia.ToString + " el día " + diaMayorLLuvia.ToString)

end if

    End Sub

End Module