Создание цикла в VB 6.0

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

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

Помогите, пожалуйста, решить задачу: Вводится последовательность чисел. Найти номера чисел, имеющих минимальное значение. Заранее спасибо)

Решение задачи: «Создание цикла в VB 6.0»

textual
Листинг программы
Private Sub Command1_Click()
Dim a() As Integer
Dim n As Integer, min As Integer
n = InputBox("Введите размерность последовательности!", "Размерность", "5")
ReDim a(n)
Print "Исходная последовательность:"
For i = 1 To n
    a(i) = InputBox("Введите элемент №" & i, "Ввод элемнта")
    Print a(i);
Next
Print
min = a(1)
For i = 1 To n
    If a(i) < min Then min = a(i)
Next
Print "Миниальное значение последовательности=" & min
Print "Индексы:"
For i = 1 To n
    If a(i) = min Then Print i;
Next
End Sub

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

15   голосов , оценка 4 из 5