Проверить наличие в массиве повторяющихся элементов - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте... Надеюсь на вашу помощь) С клавиатуры вводится массив целых чисел A размером N. Проверить наличие в нем повторяющихся элементов (вывести на экран «yes», если повторяющиеся элементы существуют, иначе вывести «no»). Спасибо.)

Решение задачи: «Проверить наличие в массиве повторяющихся элементов»

textual
Листинг программы
Private Sub Form_Load()
n = InputBox("Введите n")
ReDim a(n) As Integer
t = "NO"
For i = 0 To n - 1
    a(i) = InputBox("Введите a(" & i & ")")
    For j = 0 To i - 1
        If a(i) = a(j) Then t = "YES"
    Next
Next
MsgBox t
Unload Me
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы