помогите с алгоритмом Фибоначчи

[kardan]

задан массив A(n) целого типа. и в зависимости от того, есть ли среди элементов массива хотя бы одно число Фибоначчи, вывести сообщение true , false

[Stilet]

Так а что не получается? Получить число Фибоначчи или пройтись по массиву?

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

[maLoy*508]

1 Находишь максимальный элемент в своём массиве
2 Находишь все числа фибоначчи которыем входят в промежуток от нуля до найденного максимального элемента
3 Сравниваешь числа фибоначчи с первоначальным массивом и всё....

[kardan]

напишите пожалуйста алгоритм, а то я с массивами не дружу

[B_N]

Как я понял задачу, просто нужно убедиться, что

for i := 2 to N do begin
	if(A[i] = A[i - 1] + A[i - 2] then { есть такие}
	else {нет таких};
end;

[kardan]

помогите исптавить, очень нужно
program tyr;
uses crt;
Var
n:integer;
mas : array [1..100] of integer;
i : integer;
Begin
clrscr;
writeln('vv');
readln(n);
for i:=2 to n do
begin
if mas[i-1]+mas[i-2]=mas[i] then writeln ('true') else writeln ('false') ;
End;
readln;
end.

[B_N]

Сообщение от kardan

помогите исптавить, очень нужно

Массив с нуля начните. Или цикл с трёх. И заполнить бы массив неплохо.

[kardan]

а как заполнить массив?

[B_N]

Сообщение от kardan

а как заполнить массив?

Не знаю, как у Вас в условии. Выше вообще написано "задан".

const
    N = 99;
var
    A : array [0..N] of integer;
    I : integer;
begin
    // заполняйте случайными числами
    randomize;
    for i := 0 to N do A[i] := random(maxint);

    // или вводите напрямую
    for i := 0 to N do begin
        write ('A[',i,'] ='); readln(A[i]);
    end;
end.