{* Задача29 *}

REM basic

' Найти произведение элементов третьего столбца двумерного массива


CLS
INPUT  "Введите число элементов массива"; n
For i=1 To n
For j=1 To n
PRINT "Введите a("; i; j; ")"
INPUT a(i, j)
Next j
Next i
For i=1 To n
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
P=1
For i=1 To n
P=P*a(i,3)
Next i
PRINT "Произведение элементов третьего столбца P="; P
End