Find Maximum and Minimum from an Array

Module MaxMin

    Sub Main()
        Dim n, i, min, max As Integer
        Console.Write("Enter the number of Elements: ")
        n = CInt(Console.ReadLine())
        Dim arr(n) As Integer
        For i = 0 To n - 1
            Console.Write("Enter the " & (i + 1).ToString & "th element: ")
            arr(i) = CInt(Console.ReadLine())
        Next
        Console.WriteLine("Array Contains...")
        For i = 0 To n - 1
            Console.Write(arr(i) & " ")
        Next
        min = arr(0)
        max = arr(0)
        For i = 0 To n - 1
            If arr(i) < min Then
                min = arr(i)
            End If

        Next
        For i = 0 To n - 1
            If arr(i) > max Then
                max = arr(i)
            End If

        Next
        Console.WriteLine()
        Console.WriteLine("Minimum=" & min)
        Console.WriteLine("Maximum=" & max)
        Console.ReadLine()
    End Sub

End Module