Найти номера первых двух рядом стоящих равных чисел - 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