{* Задача107 *}

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 S = 0
90 For I=2 To N%
100 For J=1 To I-1
110 S = S + AR(I, J)
120 Next J, I
130 PRINT "Среднее арифметическое элементов, лежащих ниже главной диагонали, равно"; S / N%
140 End