Лазарус:

1. Даны символы S1, S2, ..., Sn

(вводятся одной строкой).

а) подсчитать наибольшее

количество идущих подряд введенных символов;

б) выяснить, верно ли, что в

последовательности S1, S2,

..., Sn имеются пять идущих подряд введенного символа.

uses crt;

var a, b, c, i, j, n:integer;

s, k : array [1 ... 10000] of integer;

begin

clrscr;

writeln ('Введите размер массива > 4.');

read (n);

for i:=1 to n do

begin

writeln ('Введите ', i, ' элемент.');

read (s[i]);

end;

for i:=1 to n do

for j:=1 to n-1 do

while s[i]=s[j] do

begin

j:=j+1;

inc (k[i]);

end;

a:=k[1];

for i:=1 to n do

if a
a:=k[i];

if k[i]=0 then k[i]:=1;

writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.');

for i:=1 to n-5 do

if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then inc (b);

if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b);

end.

P. S. Надеюсь на благодарность и лучший ответ.