Option Strict On

​

Imports System

Imports System.Linq

Public Module Module1

    Private r As New Random()

    Public Sub Main()

        Dim randArray() As Integer = Enumerable.Range(1, r.Next(5, 11)).Select(Function(n) r.Next(1, 101)).OrderBy(Function(n) n).ToArray()

        Console.WriteLine(String.Join(", ", randArray))

        Console.Write("Median: ")

        If randArray.Length Mod 2 = 0 Then

            Console.WriteLine("{0}", (randArray(randArray.Length \ 2 - 1) + randArray(randArray.Length \ 2)) / 2)

        Else

            Console.WriteLine("{0}", randArray((randArray.Length - 1) \ 2))

        End If

    End Sub

End Module