Найти наименьшее из всех чисел, больших 10, и его порядковый номер - VB

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

Задача 2. Дана последовательность из M чисел. Найти наименьшее из всех чисел, больших 10, и его порядковый номер. и сам код

Private Sub Command1_Click()
Dim i, x, b(), M As Integer
M = InputBox("Из скольки чисел ваша последовательность?", "Сколько чисел будем вводить?", 20)
ReDim b(1 To M)
For i = 1 To M
b(i) = Int(InputBox("", "Введите число"))
Print b(i);
Next i
x = b(1)
For i = 1 To M
 If x > b(i) Then
  x = b(i)
 End If
Next i
MsgBox "Наименьшее из введеных чисел  " & x
End Sub

Решение задачи: «Найти наименьшее из всех чисел, больших 10, и его порядковый номер»

textual
                            Листинг программы 
                        

                            Dim x, y, z As Single
x = Val(InputBox("Введите значение x"))
y = Val(InputBox("Введите значение y"))
z = Val(InputBox("Введите значение z"))
If x = Min Then x = 0
If y = Min Then y = 0
If z = Min Then z = 0
MsgBox Min, , " Значение min = "
                        

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

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

Похожие ответы