{* Задача7 *}

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
i = 2 : Flag = 0
While (i < = N) And (Flag = 0)
  j = 1
  While (j < i ) And (Flag = 0)
    If A(i, j) < 0 Then Flag = 1 Else j = j + 1
  Wend
  i = i + 1
Wend
PRINT : PRINT "О т в е т :"
PRINT "Среди элементов матрицы, лежащих ниже главной диагонали, ";
If Flag = 1 Then
     PRINT "есть отрицательные."
  Else PRINT "нет отрицательных."
End If
End