Imports System

Public Module LLUVIACALCULADA

    Public Sub Main()

        Dim cantidaddias As Integer

        Dim cantidaddiasconlluvia As Integer

        Dim cantidadlluvia As Integer

        Dim cantidadmayordialluvia As Integer

        Dim cantidadmenordialluvia As Integer

        Dim diamayorlluvia As Integer

        Dim diamenorlluvia As Integer

        Dim Nrodia As Double

        Dim promediolluvia As Double

        'Se desea ingresar la lluvia caida de los ultimos 10 dias en mm solicitando dato por dato al

        'usuario. Decir por pantalla que dia tuvo menor cantidad de lluvia (No se cuentan los dias con lluvia 0)

        'y los dias que mas lluvia tuvo( Nro de dia y cantidad de mm). Decir tambien el promedio de lluvia en mm.

        ' 0 - 5 - 12 - 50 - 1 - 100 - 16 - 45 - 17 - 35

        ' 1- Definir las variables

        'Cantidad de lluvia ingresada

        'Cantidad de dias a ingresar la lluvia

        'Dia menor lluvia

        'Dia mayor lluvia

        'Cantidad de lluvia el mayor dia

        'Cantidad de lluvia el menor dia

        'Promedio de lluvias

        'Cantidad dias con lluvia

        ' 1.5 - Asgnar el valor inicial a las variables     

        cantidadlluvia = 0

        cantidaddias = 10

        diamenorlluvia = 0

        diamayorlluvia = 0

        cantidadmayordialluvia = 0

        promediolluvia = 0

        cantidaddiasconlluvia = 0

        cantidadmenordialluvia = 10000

        ' 2- Solicito al usuario que ingrese los datos y calculo mayor, menor y promedio

        For nrodia = 1 To cantidaddias

        Console.WriteLine("Por favor ingrese la cantidad de lluvia al dia:", nrodia.ToString())

        cantidadlluvia = Double.Parse(Console.ReadLine())

        If cantidadlluvia>0 Then

            promediolluvia = promediolluvia + cantidadlluvia

            cantidaddiasconlluvia = cantidaddiasconlluvia + 1

            ' Calculamos el dia de mayor lluvia

            If cantidadlluvia>cantidadmayordialluvia Then

                cantidadmayordialluvia = cantidadlluvia

                diamayorlluvia = nrodia

            End If

        End if

        Next Nrodia

        'Si llovio algun dia, Calcular el promedio

        If cantidaddiasconlluvia > 0 Then

            promediolluvia = promediolluvia/ cantidaddiasconlluvia

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

            Console.WriteLine("El dia de menor lluvia es el dia Nro:" + diamenorlluvia.ToString() + "con" , cantidadmenordialluvia.ToString() + "mm de lluvia")

            Console.WriteLine("El dia de mayor lluvia es el dia Nro:" + diamayorlluvia.ToString() + "con", cantidadmayordialluvia.ToString() + "mm de lluvia")

        Else

            Console.WriteLine("Durante el periodo no se registraron lluvias")

        End If  

    End Sub

End Module