Определение каждой нечетной строки минимального элемента матрицы - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста с задачей. Дан двумерный массив из N строк и M столбцов . Определение каждой нечетной строки минимального элемента и вычисление произведения этих элементов оформить в подпрограмме Visual studio(visual basic)

Решение задачи: «Определение каждой нечетной строки минимального элемента матрицы»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Activate()
    Dim n&, m&, arr&(10, 20), min&, max&
    'Заполняем матрицу случайными числами
    Randomize
    For n = 0 To 10: For m = 0 To 20
            arr(n, m) = 100 + Fix(Rnd * 100)
    Next: Next
    'Находим самое большое
    For n = 0 To 10: For m = 0 To 20
            If n Mod 2 And arr(n, m) > max Then max = arr(n, m)
    Next: Next
    min = max
    For n = 0 To 10: For m = 0 To 20
            If n Mod 2 And arr(n, m) < min Then min = arr(n, m)
        Next
        If n Mod 2 Then Print "Строка " & n & " = " & min 'Вывод минимального в нечетной строке
        min = max
    Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы