{* Задача2 *}

REM basic

' В массиве A(N, N) вычислить две суммы элементов, расположенных ниже и выше главной диагонали.


CLS : INPUT "Количество строк и столбцов - ", N
Dim A(N, N) 
For i = 1 To N 
  For j = 1 To N
    PRINT "A(" ; i ; ", " ; j ; ") = " ; : INPUT A(i, j)
  Next j
Next i

CLS : PRINT "Матрица А"
For i = 1 To N 
  For j = 1 To N
    PRINT A(i, j) ;
  Next j
  PRINT
Next i : PRINT

S1 = 0 
For i = 2 To N
  For j = 1 To i-1
    S1 = S1 + A(i, j)
  Next j
Next i

S2 = 0 
For i = 1 To N-1
  For j = i+1 To N
    S2 = S2 + A(i, j)
  Next j
Next i

PRINT "Сумма элементов, лежащих ниже главной диагонали равна "; S1
PRINT "Сумма элементов, лежащих выше главной диагонали равна "; S2
End