Определить сумму элементов одномерного массива - VB

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

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

здравствуйте нужна помощь: решить 2 задачи в VB 1) дан одномерный массив чисел. Определить сумму его элементов 2) найти сумму элементов каждой строки имеются коды к этим задачам 1)
2)

Решение задачи: «Определить сумму элементов одномерного массива»

textual
Листинг программы
Private Sub Command1_Click()
    Dim A() As Integer, summ()
    Dim n As Integer, i As Integer, j As Integer
    Randomize
    Cls
    n = InputBox("vvedite razmer massiva ", , 3)
    ReDim A(1 To n, 1 To n), summ(1 To n)
    For i = 1 To n
        For j = 1 To n
           A(i, j) = Rnd * (20)
        Print vbTab; A(i, j);
      Next j
      Print
    Next i
    Print
    For i = 1 To n
        For j = 1 To n
          summ(i) = summ(i) + A(i, j)
        Next j
        Print i & "  summa = " & summ(i)
    Next i
End Sub

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


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

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

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