Найти максимальные элементы, кратные трем, в каждой нечетной строке матрицы - VB
Формулировка задачи:
Задано целочисловую матрицу В(m, n) . Найти максимальные элементы кратные трем в каждом непарном ряде матрицы. Вывести матрицу В, максимальные элементы и их координаты.
Помогите, пожалуйста, составить программу. Буду очень благодарна.
Решение задачи: «Найти максимальные элементы, кратные трем, в каждой нечетной строке матрицы»
textual
Листинг программы
Private Sub Command1_Click() Dim B() As Integer, m As Single, n As Single Dim Answer As Variant, i As Byte, j As Byte Dim max As Integer, maxI As Integer, maxJ As Integer m = InputBox("m") n = InputBox("n") ReDim B(1 To m, 1 To n) As Integer Answer = "" For i = 1 To m For j = 1 To n B(i, j) = Int((100) * Rnd - 50) Answer = Answer & B(i, j) & Space(3) Next j Answer = Answer & Chr(13) Next i MsgBox "matrix:" & Chr(13) & Answer Answer = "" For i = 1 To m Step 2 For j = 1 To n If B(i, j) > max And (B(i, j) Mod 3) = 0 Then max = B(i, j) maxI = i maxJ = j End If Next j If max <> 0 Then Answer = Answer & max & "(" & maxI & " ; " & maxJ & ")" & Chr(13) & Chr(13) End If max = 0 Next i MsgBox Answer End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д