Найти наибольшую по длине последовательность простых чисел в массиве

[Лесная Эльфийка]

Даны натуральное число n, целочисленный
массив А размерностью n. Рассмотреть отрезки последовательности А (под
последовательности идущих подряд элементов), состоящие из простых чисел.
Определить наибольшую из длин рассматриваемых отрезков

[wm_leviathan]

Сообщение от Лесная Эльфийка

Даны натуральное число n, целочисленный
массив А размерностью n.

проблем завести массив быть не может, тут куча тем про массивы.

Рассмотреть отрезки последовательности А (под
последовательности идущих подряд элементов), состоящие из простых чисел.

заводите счетчик. далее цикл по всем элементам массива и проверяете отрезки. пример:
массив(1,2,3,3,3,3,3,4,4,4,5,5,5) тут 2 отрезка (33333) и (555) один длиной 5 второй длиной 3.
простые числа это те которые делятся на самих себя и на 1 (вроде так)

Определить наибольшую из длин рассматриваемых отрезков

там же в цикле сравниваете их длины примерно как max элемент в массиве.
не вижу ничего сложного.
наверно описать массив тут самое сложное

[Serge_Bliznykov]

на форуме неоднократно решались задачи определения самой длинной последовательности чего-нибудь (будь то цифр в строке, или положительный чисел, или единиц - не суть важно!)
Если не сможете найти - помогу.
Так вся идея построена на том, что мы идём по массиву, как только условие выполняется (в данном случае удобно дёргать функцию, которая возвращает True или False - по переданному в неё число, пример такой функции ниже), включаем счётчик. как только условие перестаёт выполняться - проверяем - счётчик больше, чем максимальное_значение_длин_последов ательности - если больше - присваиваем
максимальное_значение_длин_последов ательности := счётчик;

и всё.

p.s.
wm_leviathan прав. я просто попытался алгоритм "разжевать"...


p.p.s. пример функции проверки числа "на простоту"

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;