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