Написать программу для решения следующей задачи: дана квадратная матрица порядка N. Заменить единицами все элементы, стоящие на главной диагонали и выше ее.

На  моем любимом бейсике Dim A() As Integer, i As Integer, k As Integer, N As Integer Randomize Print "N = "; : Input N ReDim A(N, N) For i = 1 To N For k = 1 To N A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10 Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i Print : Print ' Опускаемся на 2 строки For i = 1 To N For k = 1 To N If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область Rem У области выше главной диагонали номер столбца больше строки Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию  Next k Print ' Переход на следующую строку вывода Next i End