Pascal. Одномерный массив\нечетность и фибоначчи

  • Автор темы Rivet
  • Дата начала
R

Rivet

#1
Вводится размер вектора, состоящего из целых чисел, и его элементы.Найти прозведение элементов, стоящих на нечётных местах и при этом являющихся числами Фибоначчи.
Никак не могу совместить условия проверки четности и фибоначчи. Прогу написала, но она не работает. Помогите, пожалуйста, исправить ошибки. Вот прога:
Код:

var
a:array [1..100] of integer;
n,i,f0,f1,f2,p:integer;
begin
writeln('Введите количество элементов:');
readln(n);
writeln('Введите элементы');
p:=1;
for i:=1 to n do
begin
readln(a);
for i:=1 to n do
if i mod 2=0 then

f0:=0;
f1:=1;
f2:=1;
while f2<=a do
begin
f0:=f1;
f1:=f2;
f2:=f0+f1;
end;

if a=f2 then
p:=p*a;
end;

writeln('p=',p);
readln;
readln;
end.
 
09.11.2009
665
1
#2
Попробуйте так:
Код:
var
a:array [1..100] of integer;
n,i,f0,f1,f2,p:integer;
begin
writeln('Введите количество элементов:');
readln(n);
writeln('Введите элементы');
p:=1;
for i:=1 to n do {}
readln(a[i]);
for i:=1 to n do
begin		{}
if i mod 2=0 then
begin		 {}
f0:=0;
f1:=1;
f2:=1;
while f2<=a[i] do
begin	 {}
f0:=f1;
f1:=f2;
f2:=f0+f1;
end;		 {}
end;
if a[i]=f2 then
p:=p*a[i];
end;

writeln('p=',p);
readln;
readln;
end.
 
R

Rivet

#3
как я не мучаю эту прогу, в итоге она мучает меня. не идет, вернее идет, но неверно((
в чем же ошибка? пожскажите, пожалуйста!
 
R

Rivet

#5
А я решила, решила!!!!)))
урра!! все равно спасибо за помощь :)