Из массива целых случайных чисел получить массив из чисел, которые встречаются более одного раза - VB
Формулировка задачи:
Из массива целых случайных чисел X=(x i) где i=(1,2,..n) получить массив Y=(y(m)),из чисел которые встречаются более одного раза. X=(5,2,3,4,5,3)=>Y=(5,3) . помогите пожалуйста
Решение задачи: «Из массива целых случайных чисел получить массив из чисел, которые встречаются более одного раза»
textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim X() As Integer: Dim Y() As Integer
Dim i, n, j As Integer
n = InputBox("Введите размер массива")
ReDim X(n)
For i = 1 To n
X(i) = 21 * Rnd
Next i
For i = 1 To n
For j = i + 1 To n
If X(i) = X(j) Then Print X(i)
Next j
Next i
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д