Действия над двухмерным массивом - VB
Формулировка задачи:
Дан двухмерный массив. Найти наибольший и наименьший элементы массива и, чередуя, заполнить ими
одномерный массив заданной размерности. Оформите пожалуйста всю задачу, а то я ничего ни понимаю как и что.
Решение задачи: «Действия над двухмерным массивом»
textual
Листинг программы
Option Base 1
Private Sub Form_Load()
Dim Matrix(5, 5) As String
Dim max As Single, min As Single
Dim B() As Single, n As Integer
n = InputBox("n") 'размерность массива
For i = 1 To 5
For j = 1 To 5
Matrix(i, j) = Int(100 * Rnd - 50)
Next j
Next i
max = Matrix(1, 1): min = Matrix(1, 1)
For i = 1 To 5
For j = 1 To 5
If Matrix(i, j) > max Then max = Matrix(i, j)
If Matrix(i, j) < min Then min = Matrix(i, j)
Next j
Next i
For i = 1 To n Step 2
B(i) = max
Next
For i = 2 To n Step 2
B(i) = min
Next
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д