Получить вектор из строки матрицы - VB

Узнай цену своей работы

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

Получить вектор из строки матрицы,сумма элементов которого наименьшая.Заранее спасибо.

Решение задачи: «Получить вектор из строки матрицы»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2. Form1.Cls
  3. Dim n As Integer, m As Integer, s As Integer
  4. n = InputBox("size")
  5. ReDim a(1 To n, 1 To n) As Integer
  6. ReDim b(1 To n) As Integer
  7.  
  8. Print "matriza i summa strok"
  9. For i = 1 To n
  10. For j = 1 To n
  11.  a(i, j) = 10 * Rnd(1) \ 1
  12.  Print a(i, j); " ";
  13.  b(i) = b(i) + a(i, j)
  14. Next j
  15.  Print "summa = "; b(i)
  16. Next i
  17.  
  18. m = b(1): s = 1
  19. For i = 2 To n
  20.  If b(i) < m Then m = b(i): s = i
  21. Next i
  22.  
  23. Print "vector"
  24. For i = 1 To n
  25.  b(i) = a(s, i)
  26.  Print b(i); " ";
  27. Next i
  28.  
  29. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.111 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы