Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали - VB (250469)
Формулировка задачи:
Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Отпечатать полученную матрицу в общепринятом виде. Помогите составить программу в Visual Basic, пожалуйста.
Решение задачи: «Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали»
textual
Листинг программы
FOR i = 1 TO n max = A(i, 1) jmax = 1 FOR j = 1 TO m IF max < A(i, j) THEN max = A(i, j) jmax = j END IF NEXT j R = A(i, jmax) A(i, jmax) = A(i, i) A(i, i) = R NEXT i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д