Найти столбец матрицы, сумма элементов которого минимальна - VB
Формулировка задачи:
ВВести массив a(n,m). найти столбец, сумма элементов которого минимальна
в чем ошибка?
Решение задачи: «Найти столбец матрицы, сумма элементов которого минимальна»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д