напишите программный код решения этой задачи

Module Module1

    Sub Main()
        Dim size = 10
        Dim product As Double
        product = 1
        Dim rnd As New Random()
        Dim mArray = New Integer(size) {}
        rnd.Next(100, 2001)
        For idx As Integer = 1 To size
            mArray(idx) = rnd.Next(100, 2001)
            product *= mArray(idx)
        Next
        Console.WriteLine("Array:")
        For idx = 1 To size
            Console.Write(mArray(idx))
            Console.Write(" ")
        Next
        Console.WriteLine()
        Console.WriteLine("Product is {0}", product)
        Console.ReadLine()

    End Sub

End Module