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