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