Код: Выделить всё
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
Почему для точного количества n=n+1?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Как я понимаю к c не прибавльется последний номер.
Другого решения нет?
Мне в принципе не срочно.