В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10 - VB
Формулировка задачи:
Составьте следующие проекты с генерацией значений и вводом произвольного количества элементов одномерных массивов: В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10.
Решение задачи: «В массиве натуральных чисел A(N) найти сумму элементов, значения которых больше 10»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- Dim A() As Integer, N As Integer, i As Integer, s As String
- N = Val(InputBox("N =", "N", 20))
- Randomize
- ReDim A(1 To N)
- s = "Массив" & vbCrLf
- For i = 1 To N
- A(i) = CInt(Rnd * 30 - 15)
- s = s & A(i) & " "
- Next i
- s = s & vbCrLf & "Сумма элементов, значения которых больше 10 равна " & vbCrLf & Task(A)
- MsgBox s
- End Sub
- Private Function Task(ByRef A() As Integer) As Long
- Dim sum As Long, i As Integer
- For i = LBound(A) To UBound(A)
- If A(i) > 10 Then sum = sum + A(i)
- Next i
- Task = sum
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д