Определить максимального элемента двухмерного массива с запоминанием его индексов - VB
Формулировка задачи:
Задан массив X(4,4) он уже в введён в прогу
при нажатии на кнопку должна появиться надпись "Макс. элемент и его индексы"
в общем не получилось у меня то что надо, явно макс. элемент "11"
Листинг программы
- 8.1 3 2 6
- 11 5 3 7.7 .
- 7.2 2 4 9.5
- 5 5 3 2.9
Листинг программы
- Private Sub Command3_Click() 'Максимальный элемент
- Dim Max As Double
- Max = x(1, 3)
- For I = 1 To 4
- For j = 1 To 4
- If x(I, j) > Max Then Max = x(I, j)
- Next
- Next
- Print "максимальный элемент и его индексы-", Max, I, j
- End Sub
Решение задачи: «Определить максимального элемента двухмерного массива с запоминанием его индексов»
textual
Листинг программы
- If x(I, j) > Max Then Max = x(I, j): ii=i:jj=j
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
