Программа

CLS

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

DIM A(n, m)

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

'Цикл по строкам матрицы

FOR i = 1 TO n

'Цикл по столбцам матрицы

FOR j = 1 TO m

'Ввод элементов массива

INPUT A(i,j)

NEXT j, i

FOR i = 1 TO n

'Присваивание начального значения максимума

MAX = A(i,1)

K = 1

FOR j = 2 TO m

'Нахождение максимального значения и его номера

IF A(i,j) > MAX THEN MAX = A(i,j): K = j

NEXT j

' Обмен значений элементов А_i1 и А_iК

SWAP A(i,1),A(i,K)

NEXT i

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

FOR i = 1 TO n

FOR j = 1 TO m

PRINT A(i,j);

NEXT j

PRINT

NEXT i

END