{* Задача59 *}

REM basic

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


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

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

        
For i = 1 To n
   s = 0
      For j = 1 To n
           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