Указать индексы элемента с найденным значением - VB
Формулировка задачи:
Дана действительная матрица размером nxm, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением.
Программа (задача на двумерные массивы)
Решение задачи: «Указать индексы элемента с найденным значением»
textual
Листинг программы
Private Sub Form_Click() Dim A(1 To 3, 1 To 4) As Integer Dim i As Integer, j As Integer, Temp As Integer, Max As Integer, Otv_i As Integer, Otv_j As Integer ' 'Мои 5 копеек ' Randomize 0 'Initializes the random-number generator For i = 1 To UBound(A, 1) 'Размер первого измерения For j = 1 To UBound(A, 2) 'Размер второго измерения A(i, j) = -50 + Rnd * 250 \ 1 Next j, i ''' 'Зададим значения элементов массива примитивным присваиванием: ''' A(1, 1) = -8: A(1, 2) = 14: A(1, 3) = -19: A(1, 4) = -18 ''' A(2, 1) = 25: A(2, 2) = 28: A(2, 3) = 26: A(2, 4) = 20 ''' A(3, 1) = 110: A(3, 2) = 180: A(3, 3) = 200: A(3, 4) = 250 For i = 1 To 3 Temp = A(i, 1) For j = 1 To 4 Print A(i, j); If Temp > A(i, j) Then Temp = A(i, j): Otv_i = i: Otv_j = j: Max = Temp If Max < Temp Then Max = A(i, j): Otv_i = i: Otv_j = j Next Print Next Print Print Otv_i, Otv_j End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д