Найти сумму элементов массива и их произведение - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы