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