Составить процедуру нахождения повторяющихся значений элементов массива

Составить процедуру нахождения повторяющихся значений элементов массива Х(N) (N - за-данное число)

0

Я бы решал такую задачу через объект Scripting.Dictionary
ИМХО для таких целей мне он нравится больше всего

Добавлено через 3 минуты
Можно создать дополнительный массив и организовать цикл в цикле.
Пройтись по всем элемнтам массива и во внутреннем цикле проверить повторяемость во вспомогательном массиве

0

Dim x() As Integer 'исходный массив
Dim y() As Integer 'массив-копия
Dim N As Integer ' количество элементов массива
Dim I As Integer, J As Integer, L As Integer, c As Integer ' индексы
Dim K As Integer 'количество повторяющихся элементов
Dim P As Integer 'значение повторяющегося элемента
Dim R As Integer ' поле для перестановок
Private Sub Command1_Click()
N = InputBox("Введите размер массива N=")
ReDim x(1 To N) As Integer
ReDim y(1 To N) As Integer
For I = 1 To N
x(I) = InputBox("x(" + Str(I) + ")=")
y(I) = x(I)
Print x(I)
Next I
For I = 1 To N - 1
For J = I + 1 To N
If y(I) > y(J) Then R = y(I): y(I) = y(J): y(J) = R
Next J
Next I
For I = 1 To N
Print y(I)
Next I
End Sub
Private Sub Command2_Click()
For I = 1 To N - 1
For L = I + 1 To N
If y(I) = y(L) Then Print "повторяется"; y(I)
Next L
Next I
End Sub
Вот мой программный код. Ввожу массив 33714349. Он мне выдает отсортированный по возрастанию массив, а затем пишет:
повторяется 3
повторяется 3
повторяется 3
повторяется 4
Нужно сделать так, чтобы он про повторяющиеся писал один раз.

0