Дана последовательность чисел а1, а2, аn. Указать наименьшую длину числовой оси, содержащую все эти число. - VB
Формулировка задачи:
пожалуста помогите мне решать эту программу. Дана последовательность чисел а1, а2, аn. Указать наименьшую длину числовой оси, содержащую все эти число.
Решение задачи: «Дана последовательность чисел а1, а2, аn. Указать наименьшую длину числовой оси, содержащую все эти число.»
textual
Листинг программы
Private Sub Command1_Click()
Dim a()
Dim n As Integer, i As Integer, j As Integer
Dim m_x, m_n
n = InputBox(n, , 2)
ReDim a(n)
If n < 2 Then
MsgBox "n>1 "
Exit Sub
End If
For i = 1 To n
a(i) = Int(Rnd * 100) - 50
Next i
m_x = a(1): m_n = a(1)
For i = 1 To n
If m_x < a(i) Then m_x = a(i)
If m_n > a(i) Then m_n = a(i)
Next i
If m_x = m_n Then
MsgBox "{ " & m_n & " }"
Else
MsgBox "[ " & m_n & " ; " & m_x & " ]"
End If
End Sub