{* Задача87 *}

REM basic

' Дана матрица A(N, N), состоящая из чисел от 10 до 50. Заменить все элементы нижнего треугольника нулями. Транспонировать матрицу.


CLS : INPUT "Vvedite N: ", N
Dim A(N, N) As Integer
 RANDOMIZE TIMER
 For iy = 1 To N
    For ix = 1 To N
    A(ix, iy) = RND * 40 + 10
    If iy > ix - 1 And ix > N - iy Then COLOR 10 Else COLOR 12
    PRINT A(ix, iy);
    Next: PRINT
 Next
    For iy = 1 To N
    For ix = 1 To N
       If iy > ix - 1 And ix > N - iy Then A(ix, iy) = 0
 Next ix, iy
    For iy = 1 To N
    For ix = 1 To N
      If iy > ix Then SWAP A(ix, iy), A(iy, ix)
 Next ix, iy
      COLOR 7: PRINT
 For iy = 1 To N
    For ix = 1 To N
    PRINT A(ix, iy);
    Next: PRINT
 Next
End