{* Задача58 *}

REM basic

' На базе матрицы М(N, P) сформировать вектор V(P), каждый элемент которого
' равен произведению соответствующего столбца М. Умножить М на V.


CLS
INPUT "Введите N, P ", N, P
Dim M(N, P), V(P), MV(N)

RANDOMIZE TIMER
For i = 1 To N
        For j = 1 To P
          M(i, j) = CInt(RND * 9)
          PRINT M(i, j);
        Next j
       PRINT
Next i: PRINT
  
        PRINT " Вектор V"
g = 1
For j = 1 To P
        For i = 1 To N
                g = g * M(i, j)
        Next i
                V(j) = g
                PRINT V(j);
                g = 1
Next j: PRINT : PRINT

        For i = 1 To N
   s = 0
      For j = 1 To P
           s = s + M(i, j) * V(j)
      Next j
   MV(i) = s
Next i

      PRINT "Произведение"
For i = 1 To N
        PRINT MV(i)
Next i


End