Console.Write(("Enter Midday Temperature For Day ") & i + 1 & (": "))
day(i) = Console.Readline()
Console.Write(("Enter Midnight Temperature For Day ") & r + 1 & (": "))
night(r) = Console.Readline()
Console.WriteLine("Midday Temperature For Day " & d + 1 & ": " & day(d))
Console.WriteLine("Midnight Temperature For Day " & d + 1 & ": " & night(d))
Dim av_day As Integer = 0
Dim av_night As Integer = 0
av_night = av_night + night(d)
Console.Writeline("The Average Midday Temperature for This Month is: " & av_day \ 3)
Console.Writeline("The Average Midnight Temperature for This Month is: " & av_night \ 3)
Dim HighestDayTemp As Integer = -1000
Dim LowestDayTemp As Integer = 1000
If day(d) > HighestDayTemp Then
If day(d) < LowestDayTemp Then
Dim HighestNightTemp As Integer = -1000
Dim LowestNightTemp As Integer = 1000
If night(d) > HighestNightTemp Then
HighestNightTemp = night(d)
If night(d) < LowestNightTemp Then
LowestNightTemp = night(d)
Console.Writeline("Highest Midday Temperature is: " & HighestDayTemp)
Console.Writeline("Lowest Midday Temperature is: " & LowestDayTemp)
Console.Writeline("Highest Midnight Temperature is: " & HighestNightTemp)
Console.Writeline("Lowest Midnight Temperature is: " & LowestNightTemp)