{* Задача5 *}

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