{* Задача69 *}

REM basic

' В двумерном массиве размерностью NxN заполнить единицами нижнюю половину (включая среднюю строку, если N - нечетное число), за исключением элементов, расположенных правее главной диагонали. Остальные элементы массива заполнить нулями.


CLS
INPUT N
Dim A(N, N) As String
For I = 1 To N
  For J = 1 To N
    A(I, J) = "0"
    If I > INT(N / 2) Then
      If J < I Then
        A(I, J) = "1"
      End If
    End If
  LOCATE I, J
  PRINT A(I, J)
  Next J
Next I
End