Найти произведение всех чисел массива, заполненного случайными числами - VB

Узнай цену своей работы

Формулировка задачи:

Дан массив из N элементов, сформированный случайным образом из чисел в диапазоне значений от 100 до 2000. Найти произведение всех чисел массива.(Visual Basic)

Решение задачи: «Найти произведение всех чисел массива, заполненного случайными числами»

textual
Листинг программы
 
Public Sub mas15()
Dim A(10) As Integer, N As Integer, i, P As Long
N = InputBox("Введите кол-во элементов массива <10 ")
P = 1
For i = 1 To N
A(i) = 2000 * Rnd()
MsgBox (A(i))
P = P * A(i)
Next
MsgBox (P)
End Sub

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


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

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

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