Imports System.Linq

Imports System

Public Module Module1

    Public Sub Main()

        Dim avgday As Integer

        Dim avgnight As Integer

​

        Dim middaytemp(29) As Integer

        Dim midnighttemp(29) As Integer

        Dim lowtemp As Integer

        Dim hightemp As Integer

​

        For i As Integer = 0 To 29

            Console.WriteLine("What is the temperature at midday " & (i + 1) & "?")

            middaytemp(i) = Console.ReadLine()

            Console.WriteLine("What is the temperature at midnight " & (i + 1) & "?")

            midnighttemp(i) = Console.ReadLine()

        Next

​

​

​

​

        hightemp = middaytemp.Max()

        Console.WriteLine("The highest temperature during midday is " & hightemp)

        lowtemp = midnighttemp.Min()

        Console.WriteLine("The lowest temperature during midnight is " & lowtemp)

​

        Console.ReadLine()

​

​

    End Sub

End Module