Developing.ru

Код: Выделить всё

CLS
DIM a(1 TO 10)
FOR i = 1 TO 10
INPUT a(i)
NEXT i

FOR i = 1 TO 9
IF a(i) = a(i + 1) THEN
c = c + 1
END IF
IF c > n THEN
n = c
END IF
NEXT i

IF n <> 0 THEN
n = n + 1
END IF
PRINT n

Код: Выделить всё

Const N = 10
Dim a(1 To N)
For i = 1 To N
  a(i) = Cells(1, i)
Next
longestseqpos = -1
longestseqlen = -1
seqpos = 0
seqlen = 0
For i = 1 To N - 1
  If a(i) = a(i + 1) Then
    If seqlen = 0 Then seqpos = i 'если посдедовательность началась,
    'то запоминаем где она начинается
    seqlen = seqlen + 1
  Else
    If seqpos <> 0 Then 'последовательность кончилась
      seqlen = seqlen + 1 'прибавляем последний символ
      If seqlen > longestseqlen Then 'если она оказалась длинее,
        'то запоминаем ее
        longestseqpos = seqpos
        longestseqlen = seqlen
      End If
      seqlen = 0
    End If
  End If
Next

If longestseqpos>-1 Then
  print "Самая длинная цепочка символов"
  print "Начинается с элемента "; longestseqpos
  print "Имеет длину "; longestseqlen
  print "Состоит из значений "; a(longestseqpos)
Else
  print "Нет повторяющихся элементов, идущих подряд"
End If