Определение каждой нечетной строки минимального элемента матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д