Module Module1

    'Пересчитать значения элементов первой строки матрицы А  разделив их на элементы вектора Х;
    'значения элементов второй строки  матрицы на значения элементов вектора Y;
    'и третьей строки на элементы  вектора Z.
    'Количество  столбцов матрицы равно порядку векторов  X, Y и Z.
    Sub Main()
        Dim arrX(), arrY(), arrZ() As Single 'Вектора
        Dim masA(0, 0) As Single 'Матрица
        Dim i, j, n, m As Integer 'Счетчики

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

        Console.Write("Введите количество строк в матрице: ")
        m = Convert.ToInt32(Console.ReadLine())

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

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

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

        Console.WriteLine("Исходная матрица A: ")
        ReDim masA(m - 1, n - 1)
        For i = 0 To m - 1
            For j = 0 To n - 1
                masA(i, j) = Int(Rnd() * 20) + 1 - 10
                Console.Write("{0,5}", masA(i, j))
            Next j
            Console.WriteLine()
        Next i

        Console.WriteLine("Новая матрица A: ")
        For i = 0 To m - 1
            For j = 0 To n - 1
                If i = 0 Then
                    masA(i, j) = masA(i, j) / arrX(j)
                End If
                If i = 1 Then
                    masA(i, j) = masA(i, j) / arrY(j)
                End If
                If i = 2 Then
                    masA(i, j) = masA(i, j) / arrZ(j)
                End If
                Console.Write("{0,8:0.00}", masA(i, j))
            Next j
            Console.WriteLine()
        Next i

        Console.ReadKey()
    End Sub

End Module