Из массива целых случайных чисел получить массив из чисел, которые встречаются более одного раза - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
