Module Module1

    'Заполнить вектор А произведением двух векторов B и C произвольной размерности.
    Sub Main()
        Dim arrA(), arrB(), arrC() As Single 'Вектора
        Dim i, n As Integer 'Счетчики

        Console.Write("Введите размер векторов: ")
        n = Convert.ToInt32(Console.ReadLine())

        Console.WriteLine("Вектор B: ")
        ReDim arrB(n-1) 'Выделим память
        For i = 0 To n-1
            arrB(i) = Int(Rnd() * 20) + 1 - 10
            Console.Write("{0,5}", arrB(i))
        Next i
        Console.WriteLine()

        Console.WriteLine("Вектор C: ")
        ReDim arrC(n-1) 'Выделим память
        For i = 0 To n-1
            arrC(i) = Int(Rnd() * 20) + 1 - 10
            Console.Write("{0,5}", arrC(i))
        Next i
        Console.WriteLine()

        Console.WriteLine("Вектор A: ")
        ReDim arrA(n-1) 'Выделим память
        For i = 0 To n-1
            arrA(i) = arrB(i) * arrC(i)
            Console.Write("{0,5}", arrA(i))
        Next i
        Console.ReadKey()
    End Sub

End Module