Написатьпрограмму для решения следующей задачи: дана квадратная матрица порядка…

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