Получить вектор из строки матрицы - 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

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

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