Imports System

Public Module Module1

    Public Sub Main()

        Dim cantidaddiamenorlluvia As Integer

        Dim cantidadlluvia As Integer

        Dim cantidadlluviamayordia As Integer

        Dim diamayorlluvia As Integer

        Dim diamenorlluvia As Integer

        Dim diasconlluvia As Integer

        Dim nrodia As Integer

        Dim promedio As Double

        ' Se desea ingresar la lluvia caída en los últimos 10 días en mm solicitando dato por dato al

        ' usuario. Decir por pantalla qué día tuvo menor cantidad de lluvia (No se cuentan los días

        ' con lluvia 0) y el día que más lluvia tuvo (Nro de día y cantidad de lluvia en mm). Decir

        ' también el promedio de lluvia en mm.

        ' 1) Definir variables

        ' Variables de entrada

        ' Variable de cálculo/salida

        ' Por ejemplo: El día nro 3 tuvo menor cantidad de lluvia

        ' Por ejemplo: El día nro 5 tuvo mayor de cantidad con 20mm

        ' Por ejemplo: El día nro 5 tuvo mayor de cantidad con 20mm

        ' Pongo un valor MUY alto para poder pisarlo en su momento...

        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>0 Then

                ' Valido solamente los días de lluvia...

                promedio = promedio+cantidadlluvia

                diasconlluvia = diasconlluvia+1

                ' Valido por el día que menos llovió...

                If cantidadlluvia<diamenorlluvia Then

                    cantidaddiamenorlluvia = cantidadlluvia

                    diamenorlluvia = nrodia

                End If

            ' Valido por el día que más llovió

            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

        ' Sé que llovió algún día...

        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