Дана последовательность чисел а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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 3.8 из 5
Похожие ответы