Здравствуйте, angel.nero. Серией считаем самую длинную из возможных, длина не менее 3х элементов. Например, 1,1,2,3,1,1,2,3,5 содержит 2 серии (поскольку иное не указано). Ответ в приложении. Turbo Pascal.


Приложение:
{
Вопрос № 174651
Даны натуральное число n и целочисленный массив из n элементов(массив одномерный).
Подсчитать кол-во серий из чисел Фибоначи и выдать эти серии.
}
program p174561;
uses
crt;
const
MaxSize = 100;

type
TVector = array[1..MaxSize] of LongInt;

var
a: TVector;
i: integer;
j: integer;
first: integer;
len: integer; { длина текущей серии }
count: integer; { число серий }
n: integer; { используемый размер массива }
begin
repeat
clrscr;
write('n=');
readln(n)
until (n>0) and (n<=MaxSize);

for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;

len := 0;
count := 0;
if (n>2) then { массив менее 3х элементов не содержит серий }
begin
if (a[1]=1) and (a[2]=1) then
begin
len := 2;
first := 1;
end;
for i:= 3 to n do
if (a[i]=1) then
begin
if (len=1) then
len := 2
else
begin
len := 1;
first := i;
end
end
else if (a[i]=a[i-1]+a[i-2]) and (len>=2) then
{ проверка, начиная с 3-го элемента }
begin
inc(len);
if (len=3) then { начало серии }
begin
inc(count);
writeln;
writeln('Серия номер ',count, '->');
write(a[i-2],';',a[i-1],';');
end;
write(a[i],';');
end
else
begin
if len>=3 then
writeln;
len := 0;
end;
end;

writeln;
writeln('В массиве');
for i:= 1 to n do
write(a[i],';');
writeln;
writeln('Число серий Фибоначчи =', count);
readln;

end.