Imports System

​

Public Class Program

    Public Shared Sub Main()

        ' Variables

        Dim midday As Integer

        Dim midnight As Integer

        ' Constants

        Const Days As Integer = 30

        Const MinTemp As Integer = 10

        Const MaxTemp As Integer = 25

        ' Arrays

        Dim middays As Integer() = New Integer(29) {}

        Dim midnights As Integer() = New Integer(29) {}

​

        For count As Integer = 0 To Days - 1

            Do

                Console.WriteLine("Enter Midday Temperature: ")

                midday = Int32.Parse(Console.ReadLine())

            Loop Until midday >= MinTemp AndAlso midday <= MaxTemp

​

            Do

                Console.WriteLine("Enter Midnight Temperature: ")

                midnight = Int32.Parse(Console.ReadLine())

            Loop Until midnight >= MinTemp AndAlso midnight <= MaxTemp

​

            middays(count) = midday

            midnights(count) = midnight

        Next

    End Sub

End Class

​