Найти минимальный каждой строки и максимальный элемент каждого столбца матрицы - VB
Формулировка задачи:
подскажите пожалуйста, что не так?
задание:
Описать, заполнить, вывести на форму двумерный массив L в котором 10 строк и 5 столбцов.
Значения элементов массива — целые случайные числа от 27 до 72.
Найти минимальный каждой строки и максимальный элемент каждого столбика.
Решение задачи: «Найти минимальный каждой строки и максимальный элемент каждого столбца матрицы»
textual
Листинг программы
Private Sub Form_Load() Dim i As Byte, j As Byte Dim max As Integer, min As Integer Dim L(10, 5) As Integer Label1.Caption = "" For i = 1 To 10 For j = 1 To 5 L(i, j) = Int(Rnd * 42 + 27) Label1.Caption = Label1.Caption & L(i, j) & " " Next j Label1.Caption = Label1.Caption & Chr(13) Next i For i = 1 To 10 min = L(i, 1) For j = 2 To 5 If L(i, j) < min Then min = L(i, j) Next j Label1.Caption = Label1.Caption & Chr(13) & "Min(" & i & ") = " & min Next i For i = 1 To 5 max = L(1, i) For j = 2 To 10 If L(j, i) > max Then max = L(j, i) Next j Label1.Caption = Label1.Caption & Chr(13) & "Max(" & i & ") = " & max Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д