Получить вектор из строки матрицы - VB
Формулировка задачи:
Получить вектор из строки матрицы,сумма элементов которого наименьшая.Заранее спасибо.
Решение задачи: «Получить вектор из строки матрицы»
textual
Листинг программы
Private Sub Command1_Click() Form1.Cls Dim n As Integer, m As Integer, s As Integer n = InputBox("size") ReDim a(1 To n, 1 To n) As Integer ReDim b(1 To n) As Integer Print "matriza i summa strok" For i = 1 To n For j = 1 To n a(i, j) = 10 * Rnd(1) \ 1 Print a(i, j); " "; b(i) = b(i) + a(i, j) Next j Print "summa = "; b(i) Next i m = b(1): s = 1 For i = 2 To n If b(i) < m Then m = b(i): s = i Next i Print "vector" For i = 1 To n b(i) = a(s, i) Print b(i); " "; Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д