Facebook
From Hot Curlew, 1 Week ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 46
  1. program b16dayfiboci;
  2. var n,i,j,d,max:longint;
  3. a:array[1..10000] of longint;
  4. begin
  5.      readln(n); max:=0;
  6.      for i:=1 to n do
  7.      read(a[i]);
  8.      for i:=3 to n do
  9.       begin
  10.        if ((a[i-2])+(a[i-1]))=a[i] then
  11.         begin
  12.          j:=i; d:=2;
  13.          while (a[j-2]+a[j-1])=a[j] do
  14.            begin
  15.             inc(d);
  16.             inc(j);
  17.            end;
  18.          if d>max then max:=d;
  19.         end;
  20.        end;
  21.      if max=0 then write(-1) else write(max);
  22. end.