Помогите кто смыслит в массивах по ИНФОРМАТИКЕ безотлагательно!!!1.Отыскать (указать порядковый номер)

Помогите кто смыслит в массивах по ИНФОРМАТИКЕ безотлагательно!!!
1.Отыскать (указать порядковый номер) данное число в массиве.
2.Заполнить массив числами Фибоначчи (каждое из значений получается путем сложения двух прошлых, первый элемент равен 1, второй 2, третий 3, 4-ый 5, и т.д).

Задать свой вопрос
1 ответ
1 Задачка:
const
n=99;
var
ch:integer;
i:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do readln(a);
readln(ch);
for i:=1 to n do if ch=a[i] then writeln(i);
end;

2 Задачка:

var a,b,c,i,n: integer;
begin write('n = ');
readln(n);
 a := 0; write(a,' ');
 b := 1; write(b,' ');
for i:=3 to n do
    begin
        write(a+b,' ');
        c := b;
        b := a + b;
        a := c;
    end;  
readln;
end.


Oleg Gozhinskij
1 задачка не совсем верно работает но спасибо, выручил!)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт