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

115

335

Посмотреть ответы 2

Ответы на вопрос:

larisaiventeva

Информатика

4,8(6 оценок)

На моем любимом бейсике 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