G
Guest
Переменной T присвоить значение true, если среди элементов массива х есть хотя бы одно число Фибоначчи, и значение false иначе
Pascal
помогите, разлобраться. Вот что есть уже.
Pascal
Код:
uses crt;
function fib(k:byte):real;
begin
if (k=1) then begin fib:=0;exit;end;
if (k=2) then begin fib:=1;exit;end;
fib:=fib(k-1)+fib(k-2);
end;
const n=10;
var x:array[1..n] of integer;
i,k:byte;
t:boolean;
begin
clrscr;
writeln('введите ',n,' элементов массива');
for i:=1 to n do
read(x[i]);
readln;
t:=false;
for i:=1 to n do
if x[i]=fib(k) then
begin
t:=true;
end;
writeln(t);
readln
end.
помогите, разлобраться. Вот что есть уже.