Найти столбец матрицы, сумма элементов которого минимальна - VB

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

ВВести массив a(n,m). найти столбец, сумма элементов которого минимальна в чем ошибка?

                    Листинг программы
                
 
                        
                          
                    
Dim a(5, 5), s(5)
Private Sub Command1_Click()
n = 0 'ГЁГ*Г¤ГҐГЄГ±Г» ГЅГ«ГҐГ¬ГҐГ*ГІГ* tabindex Гў Г¬Г*Г±Г±ГЁГўГҐ ГІГҐГЄГ±ГІГ®ГўГ»Гµ ГЇГ®Г«ГҐГ©
For i = 1 To 5
For j = 1 To 5
s(j) = 0
Next j
 
For j = 1 To 5
a(i, j) = Val(InputBox("Г‚ГўГҐГ±ГІГЁ")) 'ГўГўГ®Г¤ГЁГ¬ Г± ГЄГ«Г*ГўГЁГ*ГІГіГ°Г» ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г·ГЁГ±ГҐГ« Гў Г¬Г*Г±Г±ГЁГўГҐ
Text1(n).Text = Str(a(i, j))
s(j) = s(j) + a(i, j)
n = n + 1
 
Text2(j - 1).Text = Str(s(j))
Next j
Next i
End Sub

Решение задачи: «Найти столбец матрицы, сумма элементов которого минимальна»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Комманда1_Click()
    Dim a(1 To 5, 1 To 5), MIN, SUM(1 To 5), N, i, j
    Randomize
    Cls
    MIN = 1E+300
       Print "Матрица   "
        For i = 1 To 5
                For j = 1 To 5
                        a(i, j) = Val(InputBox("Ввести a(" & i & ", " & j & ")", _
                        "Ввод данных", Int(20 * Rnd + 1))) 'вводим с клавиатуры
                        SUM(j) = SUM(j) + a(i, j)
                        Print a(i, j),
                Next j
                Print
        Next i
           Print
            Print "Суммы столбцов"
        For i = 1 To 5
            Print SUM(i),
            If MIN > SUM(i) Then MIN = SUM(i): N = i
        Next
       Print
       Print
       Print "Результат  "
       Print "Максимальная сумма = " & MIN & ", столбец № " & N
End Sub

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

6 голосов , оценка 3.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы