Найти в матрице максимальные и минимальные элементы и поменять их местами - VB
Формулировка задачи:
Помогите исправить программу. Должна в MsgBox е выводить в виде массива и конец вродебы неправильный.
Задача:Дана матрица размерности n на m. Найти в ней максимальные и минимальные элементы и обменять их местами.
Заранее спасибо!
Решение задачи: «Найти в матрице максимальные и минимальные элементы и поменять их местами»
textual
Листинг программы
Dim A() As Integer Dim n As Integer Dim m As Integer Dim max As Integer Dim min As Integer Dim k As Integer Dim c As Integer Dim b As Integer Dim d As Integer Dim e As Integer Dim i As Integer Dim j As Integer n = InputBox("Введите количество строк") m = InputBox("Введите количество столбцов") ReDim A(1 To n, 1 To m) For i = 1 To n For j = 1 To m A(i, j) = InputBox("Вв. элемент массива") MsgBox (A(i, j)) Next Next max = A(1, 1) k = 1 c = 1 min = A(1, 1) b = 1 d = 1 For i = 1 To n For j = 1 To m If A(i, j) > max Then max = A(i, j) k = i c = j End If If A(i, j) < min Then min = A(i, j) b = i d = j End If Next Next MsgBox ("max = " & A(k, c)) MsgBox ("min = " & A(b, d)) e = A(k, c) A(k, c) = A(b, d) A(b, d) = e
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д