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