Найти минимальный среди положительных элементов. - VB
Формулировка задачи:
Дан одномерный массив из n элементов записанных в 4-й строке.
Найти минимальный среди положительных элементов.
Элементы массива заданы в диапазоне [-10;10].
Visual Basic.
Решение задачи: «Найти минимальный среди положительных элементов.»
textual
Листинг программы
Sub Noizer()
Dim a(), i%, Min#, n%
Cells.Clear
n = Int(InputBox("Введите размерность массива", "Ввод данных", 10))
ReDim a(1 To n)
Randomize
For i = 1 To n
Cells(4, i) = Round(22 * Rnd + (-12.9), 2)
Next
Min = 5.25 'от фонаря направо влево
For i = 1 To n
If Cells(4, i) > 0 Then
If Cells(4, i) < Min Then Min = Cells(4, i)
End If
Next i
Cells(2, 6) = Min
Cells(2, 1) = "Минимальный среди полож. элем-тов массива ="
End Sub