{* Задача60 *}

REM basic

' Сформировать диагональную матрицу M(N, N) на основе вектора V(N).


CLS
INPUT "Введите n ", n
Dim M(n, n), V(n)
       
        PRINT "Исходный вектор"
RANDOMIZE TIMER
For i = 1 To n
        V(i) = CInt(RND * 9)
          PRINT V(i);
Next i: PRINT

      PRINT "Полученная матрица"
For i = 1 To n
        M(i, i) = V(i)
Next i

For i = 1 To n
        For j = 1 To n
                PRINT M(i, j);
        Next j
        PRINT
Next i
End