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