Imports System

Public Module Module1

    Sub Main()

​

        'Task 1

​

        'Dim nTemp As Single

​

        'Console.WriteLine("Enter the value of the baby's tempereature in degrees Celsius and press ENTER:")

​

        'nTemp = Console.ReadLine()

​

        'If nTemp < 36 Then

        '    Console.WriteLine("The temperature is too low!")

        'ElseIf 36 <= nTemp And nTemp <= 37.5 Then

        '    Console.WriteLine("The temperature is perfect.")

        'ElseIf nTemp > 37.5 Then

        '    Console.WriteLine("The temperature is too high!")

        'End If

        'Console.ReadLine()

​

​

        'Task 2

​

​

        Console.WriteLine("Enter the value of the baby's tempereature in degrees Celsius and press ENTER:")

        Dim aTemp(3) As Decimal

​

        For i = 0 To aTemp.Length - 1

​

            'Validation

​

​

​

            aTemp(i) = Console.ReadLine()

            If aTemp(i) < 36 Then

                Console.WriteLine("The temperature is too low!")

            ElseIf 36 <= aTemp(i) And aTemp(i) <= 37.5 Then

                Console.WriteLine("The temperature is perfect.")

            ElseIf aTemp(i) > 37.5 Then

                Console.WriteLine("The temperature is too high!")

            End If

        Next

​

        Dim nMax As Decimal

        Dim nMin As Decimal

​

        nMin = aTemp(0)

        For i = 0 To aTemp.Length - 1

            If aTemp(i) > nMax Then

                nMax = aTemp(i)

            End If

            If aTemp(i) < nMin Then

                nMin = aTemp(i)

            End If

        Next

        Dim nRange As Decimal

​

        nRange = nMax - nMin

​

        Console.WriteLine("Your highest temperature is {0}, lowest temperature is {1} and the range is {2}.", nMax, nMin, nRange)

​

​

        'Task 3

​

        Dim nCount As Integer

        For i = 0 To aTemp.Length - 1

            If aTemp(i) < 36 Or aTemp(i) > 37.5 Then

                nCount += 1

            End If

        Next

​

        If nRange > 1 Then

            Console.WriteLine("The baby temperature has a difference of more than 1 degree Celsius.")

        End If

        If nCount > 2 Then

            Console.WriteLine("The temperature has been out of suitable range for more than 2 times.")

        End If

​

        Console.ReadLine()

​

    End Sub

End Module