Advertisement
Guest User

Untitled

a guest
Nov 20th, 2017
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.54 KB | None | 0 0
  1. program project1;
  2.  
  3. const MAX_BR_EL = 100;
  4.  
  5. type niz = array[1..MAX_BR_EL] of integer;
  6.  
  7. var
  8. n,k,i:integer;
  9. a:niz;
  10.  
  11. function fibonaci(n:integer): integer;
  12. begin
  13.     if(n < 2) then
  14.         fibonaci := n
  15.     else
  16.         fibonaci := fibonaci(n-2) + fibonaci(n-1);
  17. end;
  18.  
  19. begin
  20.  writeln('Unesi broj elemenata niza:');
  21.  readln(n);
  22.  
  23.  IF (n > MAX_BR_EL) OR (n < 0) then
  24.  exit;
  25.  
  26.  writeln('Unesi elemente niza:');
  27.  for i:=1 to n do
  28.  readln(a[i]);
  29.  
  30.  for i:=1 to n do
  31.  if(a[i]=fibonaci(i)) then
  32.   writeln('Broj: ',a[i]);
  33.  
  34.  
  35. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement