Удаление одного элемента из одномерного массива

Пример 1

Дан массив Х = (– 4 8 – 6 5 8 4).

Удалить из массива элемент, стоящий на третьем месте.

Фрагмент программного кода, в котором удаляется третий элемент массива Х, выглядит следующим образом:

k = 3

For i = k To N – 1 ‘ начиная с k-го и до предпоследнего элемента

X(i) = X(i + 1) ‘ сдвигаем элементы массива влево

Next i

N = N – 1 ‘ уменьшаем длину массива на 1

Пример 2

Сформировать одномерный массив из случайных чисел. Удалить из массива минимальный и максимальный элементы.

Программный код

Sub PR20()

Dim x(40) As Integer

Dim n As Integer

Dim i As Integer

Dim Min As Integer, Max As Integer

Dim IMin As Integer, IMax As Integer

n = Val(InputBox("Введите число элементов N"))

Label1.caption = "Исходный массив"

For i = 1 To n

x(i) = Int(Rnd * 100) – 50

ListBox1.AddItem Str(x(i))

Next i

‘ Поиск минимального и максимального элементов

Min = x(1): Max = x(1)

For i = 2 To n

If x(i) < Min Then Min = x(i): IMin = i

If x(i) > Max Then Max = x(i): IMax = i

Next i

MsgBox()

‘ Удаление минимального элемента

For i = IMin To n – 1

x(i) = x(i + 1)

Next i

n = n – 1

‘ если максимальный элемент стоял правее минимального, то он

‘ сдвигается влево на одну позицию

If IMax > IMin Then IMax = IMax – 1

‘ Удаление максимального элемента

For i = IMax To n – 1

x(i) = x(i + 1)

Next i

n = n – 1

Label2.caption = "Полученный массив"

For i = 1 To n

ListBox2.AddItem Str(x(i))

Next i

End Sub

Не нашли, что искали? Воспользуйтесь поиском: