Dim middaytemp(29) As Integer
Dim midnighttemp(29) 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()
hightemp = middaytemp.Max()
Console.WriteLine("The highest temperature during midday is " & hightemp)
lowtemp = midnighttemp.Min()
Console.WriteLine("The lowest temperature during midnight is " & lowtemp)