Массив

19.11.2010, 13:13. **Показов** 408. **Ответов** 3

Author24 — интернет-сервис помощи студентам

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

@~~RU4NIK~~ · 19.11.2010, 13:35

Pascal

uses
SysUtils;
type
mas=array[1..10] of integer;
const
m:mas=(1,2,3,2,1,1,2,3,1,1);
Var
n,i:integer;
a,b,c,x,y,r,s:real;
begin
s:=0;
for i:=1 to 10 do writeln (m[i]);
for i:=1 to 10 do
begin
if M[5]=1 then a:=7; b:=8; s:=b/2*sqrt((a+b/2)*(a-b/2)); writeln (s:2:2);
if M[i]=2 then x:=2; y:=2; s:=x*y;  writeln (s:2:2);
if M[i]=3 then r:=1; s:=pi*r*r;  writeln (s:2:2);
writeln;
end;
writeln (s:2:2);
readln;
end.

помойму это а так кажеться нет

19.11.2010, 13:38

что-то вообще не въехал что к чему

@~~RU4NIK~~ · 19.11.2010, 13:39

Сообщение от Винни the Пух

что-то вообще не въехал что к чему

паскаль мой со сторел....да не то...попробую ещё раз

Винни the Пух
		1
	Массив 19.11.2010, 13:13. Показов 408. Ответов 3 Метки нет (Все метки) Вводится одномерный массив.Нужно найти сумму элементов, стоящих на чётных местах и при этом являющихся числами последовательности фибоначчи. применять функции нельзя.

Винни the Пух
	19.11.2010, 13:38	3
	что-то вообще не въехал что к чему

@~~RU4NIK~~ Заблокирован
	19.11.2010, 13:39	4
	Сообщение от Винни the Пух что-то вообще не въехал что к чему паскаль мой со сторел....да не то...попробую ещё раз 0