zadach106.BAS

{* Задача106 *}

REM basic

' Ввести двумерный массив N x N. Определить произведение элементов, лежащих выше побочной диагонали.


10 INPUT "Количество строк и столбцов ="; N%: If N% < 3 Then 10
20 Dim AR(N%, N%)
30 For I=1 To N%
40 For J=1 To N%
50 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
60 INPUT AR (I, J)
70 Next J, I
80 P = 1
90 For I=1 To N%
100 For J=1 To N%
110 If I < N-J+1 Then P = P * AR(I, J)
120 Next J, I
130 PRINT "Произведение элементов над побочной диагональю равно"; P
140 End