Массивы и матрицы - VB

Узнай цену своей работы

Формулировка задачи:

"В матрице действительных чисел вычислить сумму их наименьших значений в строках." Помогите пожалуйста составить

Решение задачи: «Массивы и матрицы»

textual
Листинг программы
Private Sub Command4_Click()
Cls
sum = 0
k = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê", "Ââîä")
k_1 = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ", "Ââîä")
ReDim pp(1 To k, 1 To k_1)
Print "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:"
For i = 1 To k
    For j = 1 To k_1
    pp(i, j) = Int(Rnd * 10 - 2)
        If j <> k_1 Then
            Print ; pp(i, j);
        Else
            Print pp(i, j);
            Print vbLf
        End If
Next j
Next i
Print "ГЊГЁГ*ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ Гў ГЄГ*æäîé ñòðîêå"
For i = 1 To k
    min = pp(i, 1)
    For j = 1 To k_1
 
If pp(i, j) < min Then min = pp(i, j)
        If j <> k_1 Then
            Print ; pp(i, j);
        Else
            Print pp(i, j); vbTab; min
            Print vbLf
 
        End If
Next j
sum = sum + min
Next i
Print "Сумма минимальных элементов элементов - "sum
End Sub

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


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

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

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