Определить номер столбца с наименьшей суммой элементов матрицы А - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д