Imports System

Public Module Module1

    Public Sub Main()

        Dim Temperature() as integer = {15, 25, 18, 24, 31, 27, 14, 18, 22, 32, 16, 24, 23, 19, 26}

        Dim Sum, Maximum, Minimum, Range as integer

        Dim Average as double

        Sum = 0

        Average = 0

        Minimum = 50

        Maximum = 0

        Range = 0

        FOR x = 0 to 14

        Sum = Sum + Temperature(x)

        IF Temperature(x) > Maximum THEN

            Maximum = Temperature(x)

        END IF

        IF Temperature(x) < Minimum THEN

            Minimum = Temperature(x)

        END IF

    NEXT x

    Average = Sum/15

    Range = Maximum - Minimum

    console.WriteLine("The sum is " & Sum)

    console.WriteLine("The average is " & Average)

    console.WriteLine("The maximum is " & Maximum)

    console.WriteLine("The minimum is " & Minimum)

    console.WriteLine("The range is " &  Range)

    End Sub

End Module