Найти произведение минимальных элементов массива - VB
Формулировка задачи:
в Visual Basic 6.0
Дан одномерный массив из N элементов:
б)Найти произведение минимальных элементов массива
Решение задачи: «Найти произведение минимальных элементов массива»
textual
Листинг программы
- Function PMin(X() as long) as long
- min&=X(1)
- pmin=X(1)
- For i%=2 to Ubound(X,1)
- If X(i%) = min& then
- pmin=pmin*X(i%)
- elseIf X(i%) < min& then
- min&=X(i%)
- pmin=X(i%)
- end if
- Next i%
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
