zadach314.BAS

{* Задача314 *}

REM basic

' Уменьшить элементы диагонали массива на 6 и найти их произведение.


CLS
RANDOMIZE TIMER
Dim A(5, 5)
PR = 1
For I = 1 To 5
        For J = 1 To 5
                A(I, J) = INT(RND * 20)
                PRINT A(I, J);
        Next J
        PRINT
Next I
 
For I = 1 To 5
        A(I, I) = A(I, I) - 6
        PR = A(I, I) * PR
Next I
 
PRINT "Произведение чисел диагонали: "; PR
End