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