Ряд Фибоначчи

Вычислить сумму первых N членов ряда Фибоначчи.
4 ответа

const
  n = 5;
 
var
  a: array[1..n] of integer;
  i: integer;
  s: longint;
 
begin
  a[1] := 0;
  a[2] := 1;
  s := 1;
  for i := 3 to n do 
  begin
    a[i] := a[i - 2] + a[i - 1];
    s := s + a[i]
  end;
  writeln(s);
end.


А без массива можно как-нибудь обойтись?


спасибо