Определить номер столбца с наименьшей суммой элементов матрицы А - VB

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

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

Определить номер столбца с наименьшей суммой элементов матрицы А размерности L*k. Помогите написать коооод (

Решение задачи: «Определить номер столбца с наименьшей суммой элементов матрицы А»

textual
Листинг программы
List1.Clear
Dim a(), b() As Integer
Dim c, l, k, n As Integer
Dim e As String
 l = Val(Text1.Text): k = Val(Text2.Text)
 ReDim a(1 To l, 1 To k), b(1 To k)
Randomize
List1.AddItem "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў"
For i = 1 To l
For j = 1 To k
 a(i, j) = Int(Rnd(1) * 100)
 e = e & Str(a(i, j)) & "  "
Next j
List1.AddItem e: e = ""
Next i
d = False
For i = 1 To l
For j = 1 To k
 b(j) = b(j) + a(i, j)
Next j
Next i
List1.AddItem "Âûõîäÿùèé Г¬Г*Г±Г±ГЁГў"
For i = 1 To k
 e = e & Str(b(i)) & "  "
Next i
List1.AddItem e
List1.AddItem "Íîìåð ñòîëáöГ*"
n = 1
For i = 2 To k
 If b(1) > b(i) Then n = i: b(1) = b(i)
Next i
List1.AddItem n

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


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

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

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