Программа. INPUT введи размер матрицы ; n

CLS

INPUT "введи размер матрицы "; n

DIM A(n, n)

PRINT "введи матрицу"

FOR i = 1 TO n

FOR j = 1 TO n

'Ввод элементов матрицы

INPUT A(i,j)

NEXT j, i

'Задание начального значения минимального элемента побочной диагонали

min = A(1,n): K = 1

FOR i = 1 TO n

FOR j = 2 TO n

'Нахождение наименьшего значения побочной диагонали матрицы

IF i + j = n + 1 AND A(i,j) < min THEN

min = A(i,j):K = i

END IF

NEXT j

NEXT i

'Удаление строки с минимальным значением побочной диагонали матрицы

FOR i = K TO n - 1

FOR j = 1 TO n

A(i,j) = A(i + 1,j)

NEXT j,i

n = n - 1

FOR i = 1 TO n

FOR j = 1 TO n

'Вывод матрицы на печать

PRINT A(i,j);

NEXT j

PRINT

NEXT i

END

Дата добавления: 2015-07-11