Удаление строки и столбца из массива - VB
Формулировка задачи:
Салют, помогите пожалуйста вот с этим: Сформировать произвольно двумерный массив K(8,4). Преобразовать массив
путем удаления из массива K строки и столбца, на пересечении которых находится наибольший элемент.
Спасибо!
Решение задачи: «Удаление строки и столбца из массива»
textual
Листинг программы
Dim K(8, 4) As Integer Dim i As Integer, j As Integer, temp_max As Integer, temp_i As Integer, temp_j As Integer, temp As Integer, i_in As Integer, j_in As Integer Private Sub Sort() temp_max = K(1, 1) temp_i = 1 temp_j = 1 For i = 1 To 8 For j = 1 To 4 If K(i, j) > temp_max Then temp_i = i temp_j = j temp_max = K(i, j) End If Next Next For i = 1 To 8 For j = 1 To 4 If j = temp_j Then For i_in = i To 7 temp = K(i_in, j) K(i_in, j) = K(i_in + 1, j) K(i_in + 1, j) = temp Next End If If i = temp_i Then For j_in = j To 3 temp = K(i, j_in) K(i, j_in) = K(i, j_in + 1) K(i, j_in + 1) = temp Next End If Next Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д