Найти минимальный каждой строки и максимальный элемент каждого столбца матрицы - 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

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


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

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

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