{* Задача146 *}

REM basic

' С помощью генератора случайных чисел (RND) создать и вывести на экран массив А 5x5 случайных действительных чисел в диапазоне от 2 до 4. Определить по А и вывести диагональную матрицу B 10х10 так, чтобы элементы главной диагонали определялись как произведение по соответствующим столбцам.


CLS
RANDOMIZE TIMER
n = 5
Dim a(n, n)
For i = 1 To n
    For j = 1 To n
        a(i, j) = FIX(RND * 3) + 2
    Next
Next
For i = 1 To n
    For j = 1 To n
        PRINT a(i, j);
    Next
    PRINT
Next
End