Найти сумму элементов массива и их произведение - VB
Формулировка задачи:
Дан массив D(10). Найти сумму его элементов и их произведение (Обработка массива). Буду очень признателен
Решение задачи: «Найти сумму элементов массива и их произведение»
textual
Листинг программы
Dim B(1 To 10), I, N, S As Integer
Dim S1 As String
B(I) = Val(InputBox(""))
S1 = S1 + " " + Str(B(I))
If (B(I) >= -5) And (B(I) <= 35) Then S = S + B(I)
Next I
MsgBox "Вывод массива в строку", vbInformation, "s1= " & S1
MsgBox "Сумма значений из указанного диапазона [-5,35]" _
, vbInformation, " s= " & S