В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10 - VB

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

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

Составьте следующие проекты с генерацией значений и вводом произвольного количества элементов одномерных массивов: В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10.

Решение задачи: «В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10»

textual
Листинг программы
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.     Dim A() As Integer, N As Integer, i As Integer, s As String
  5.     N = Val(InputBox("N =", "N", 20))
  6.     Randomize
  7.     ReDim A(1 To N)
  8.     s = "Массив" & vbCrLf
  9.     For i = 1 To N
  10.        A(i) = CInt(Rnd * 30 - 15)
  11.        s = s & A(i) & "   "
  12.     Next i
  13.     s = s & vbCrLf & "Сумма элементов, значения которых больше 10 равна " & vbCrLf & Task(A)
  14.     MsgBox s
  15. End Sub
  16.  
  17. Private Function Task(ByRef A() As Integer) As Long
  18.     Dim sum As Long, i As Integer
  19.     For i = LBound(A) To UBound(A)
  20.                If A(i) > 10 Then sum = sum + A(i)
  21.     Next i
  22.     Task = sum
  23. End Function

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


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

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

10   голосов , оценка 3.8 из 5

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

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

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