Массивы

[blok20]

Здравсвуйте. У меня возник вопрос по поводу решения этой задачи. Буду очень благодарен вам за помощь. Условие: Посчитать масимальное кол-во подряд идущих элементов.
Моё решение:

cls
?"кол-во элементов"
input n
dim a(n)
for i=1 to n
input A(i)
next i
for i=2 to n
s=1
max=1
if a(i)=a(i-1) then s=s+1 else if s>max then max=s : s=1
next i
if s>max then max = s
? max

В принципе он считает все хорошо, но когда я ввожу 11223344 к примеру он выдает 3.

[Alt]

Неплохо язык указывать. Мне кажется это Basic?

[blok20]

Да это Basic

[eoln]

А у меня он 1 выдаёт.
1) s=1 и max=1 надо вынести из цикла (поставить перед for i=2 to n)
2) if s>max then max=s : s=1 - переменная s не меняет своего значения, если последовательность была такой же длинны или короче. Поэтому надо использовать if s>=max.

[blok20]

Спасибо большое