Указать наименьшую длину числовой оси, содержащую все эти числа

@Trinity0404 · Регистрация: 26.03.2012

Author24 — интернет-сервис помощи студентам

Дан массив чисел а1, а2,..., an. Указать наименьшую длину числовой оси, содержащую все эти числа

@sco43 · 04.04.2012, 20:54

Visual Basic

Private Sub CommandButton1_Click()
Dim a&(), n&, ma&, mi&, l&
n = InputBox("colichestvo chisel")
ReDim a(n)
Randomize
For i = 1 To n
 a(i) = Int(Rnd(1) * 100)
 Cells(i, 1) = a(i)
Next i
 
ma = a(1): mi = a(1)
For i = 2 To n
 If a(i) > ma Then ma = a(i)
 If a(i) < mi Then mi = a(i)
Next i
Cells(1, 3) = mi: Cells(1, 4) = ma
l = ma - mi
Cells(1, 5) = "dlina osi=": Cells(1, 6) = l
End Sub

@Trinity0404 0 / 0 / 0 Регистрация: 26.03.2012 Сообщений: 18
		1
	Указать наименьшую длину числовой оси, содержащую все эти числа 04.04.2012, 14:54. Показов 2026. Ответов 1 Метки нет (Все метки) Дан массив чисел а1, а2,..., an. Указать наименьшую длину числовой оси, содержащую все эти числа 0

	04.04.2012, 20:54

Опции темы