Вставить элемент передм max и min элементами - VB
Формулировка задачи:
находить как миним. и махим. элимент знаю,а как вставлять перед ними элеменет не знаю.....Люди,подскажите пожалуйста как это сделать.
в массиве:
вставить по одному элементу перед максимальным и минимальным отрицательными элементами.
Решение задачи: «Вставить элемент передм max и min элементами»
textual
Листинг программы
Private Sub Command1_Click() Dim arr() As Single, n As Byte Dim max As Single, min As Single Dim maxI As Byte, minI As Byte Dim answer n = InputBox("N") ReDim arr(1 To n) As Single arr(1) = Int(100 * Rnd - 50) max = arr(1) maxI = 1 answer = arr(1) & Space(2) For i = 2 To n arr(i) = Int(100 * Rnd - 50) If arr(i) > max Then max = arr(i): maxI = i Next i ReDim Preserve arr(1 To n + 1) For i = n + 1 To maxI + 1 Step -1 arr(i) = arr(i - 1) Next i arr(maxI) = 100 min = arr(1) minI = 1 For i = 2 To n If arr(i) < min Then min = arr(i): minI = i Next i ReDim Preserve arr(1 To n + 2) For i = n + 2 To minI + 1 Step -1 arr(i) = arr(i - 1) Next i arr(minI) = -100 answer = "" For i = 1 To n + 2 answer = answer & arr(i) & Space(2) Next i MsgBox answer End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д