Дана последовательность чисел а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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д