Как найти серию чисел в Паскале?

программирование паскаль

дана последовательность из N чисел. нужно определить количество серий из повторяющихся цифр (серия - от 3-х и более чисел) и какое число повторяется в каждой серии.
Ответы:
Делаем цикл фор по кол-ву элементов, в котором условынй оператор - если данный элемент равен предыдущему - приплюсовать к счетчсику повторяющихся равен трем. Как только символ сменился - проверить значение счеткчика, и если он равен 3 или более - добавить единицу в счетчик поседовательностей, а проедидущий счеткик оюбнулить и начать отсчет заного
делаешь массив P [1..N] integer и переменную count,posl : Integer;
дальше циклом перебираешь входную последовательность
 если следующий элемент = текущему, тогда posl = posl + 1 иначе posl = 1;
 если posl = 3, тогда count = count + 1, P[count] = текущий элемент;


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.