Найти номера первых двух рядом стоящих равных чисел - VB
Формулировка задачи:
День добрый, помогите пожалуйста по информатике.
Задание: Дан массив целых чисел-А={ai}, где i={1,2.....n}
Найти номера первых двух рядом стоящих равных чисел или напечатать Равных чисел нет!
Так если А={2,6,4,4,2,5,5,4} результат:3 и 4(равные значения 4 и 4)
Решение задачи: «Найти номера первых двух рядом стоящих равных чисел»
textual
Листинг программы
- Option Explicit
- Dim Mass As String
- Dim Y() As String
- Dim n, j, i As String
- Private Sub Form_Activate()
- Print " Дан массив целых чисел-А={ai}, где i={1,2...n}"
- Print " Найти номера первых двух рядом стоящих равных "
- Print " чисел или напечатать Равных чисел нет!"
- End Sub
- Private Sub Command1_Click()
- n = InputBox("Колличество элементов в массиве?")
- ReDim Mass(n) As String
- For i = 1 To n
- If Mass(n)=
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
