Imports System

​

Public Module Module1

​

    Public Sub Main()

        'link to QUOZR task: https://www.quozr.com/courses/3/2289/0/0/Pre-Release-Tasks

        'I made it 3 days only beceause 30 days is too long to test out

        'TASK 1

        Dim day(2) As Integer

        Dim night(2) As Integer

        Dim i As Integer

        For i = 0 to 2

            Console.Write(("Enter Midday Temperature For Day ") & i + 1 & (": "))

            day(i) = Console.Readline()

        Next

​

        Dim r As Integer

        For r = 0 to 2

            Console.Write(("Enter Midnight Temperature For Day ") & r + 1 & (": "))

            night(r) = Console.Readline()

        Next

​

        Console.Writeline()

        Dim d As Integer

        For d = 0 to 2

            Console.Writeline()

            Console.WriteLine("Midday Temperature For Day " & d + 1 & ": " & day(d))

            Console.WriteLine("Midnight Temperature For Day " & d + 1 & ": " & night(d))

        Next

​

        Console.writeline()

        'TASK 2

        Dim av_day As Integer = 0

        For d = 0 to 2

            av_day = av_day + day(d)

        Next

​

        Dim av_night As Integer = 0

        For d = 0 to 2

            av_night = av_night + night(d)

        Next

​

        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)

​

'TASK 3

​

Dim HighestDayTemp As Integer = -1000

Dim LowestDayTemp As Integer = 1000

​

For d = 0 to 2

If day(d) > HighestDayTemp Then 

HighestDayTemp = day(d)

End If

Next

​

For d = 0 to 2

If day(d) < LowestDayTemp Then 

LowestDayTemp = day(d)

End If

Next

​

Dim HighestNightTemp As Integer = -1000

Dim LowestNightTemp As Integer = 1000

​

For d = 0 to 2

If night(d) > HighestNightTemp Then 

HighestNightTemp = night(d)

End If

Next

​

For d = 0 to 2

If night(d) < LowestNightTemp Then 

LowestNightTemp = night(d)

End If

Next

​

Console.Writeline()

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)

​

Console.Readline()

​

    End Sub

End Module