a)     Составить процедуру
вычисления чисел Фиббоначчи для i=1,2,..,n, если : F[1]=F[2]=1;F[i-2]+F[i-2],т.е F[3]=F[1]+F[2],F[4]=F[3]+F[2] и т.д . Использовать
процедуру для n=10,n=15.





b)    б)Даны три массива:

A={17.2,9.3,14.5,-11.7,4.3,5.9,-11.9,12.3,-14.1,-15.3}

B={-1.2,4.2,5.9,-18.1,21.2,-3.1,-5.3,-12.2,21.4,-4.5,8.2,9.4}

C={3.5,8.4,-3.2,4.5,-8.4,-9.5,1.5,9.3}

Для каждого из массивов найти суммы
положительных элементов.

Использовать подпрограмму.





c)    
в) Вычислить φ(x+2;3,4;y-1)+2φ(x-1;2y;1,5) при каждом значение х∈[2;8], изменяющимся с шагом h[x]=0,5 и заданном значении y=5,68, где φ(a,b,c)=sin((a+b)/4)- (√(a+c+10))*(IaI-bc).

Применить функцию пользователя.

А остальные задачи?

а) Procedure Fibbonachi(Const n: Integer);Var i, a, b, t: Integer;begin    a := 1;    b := 1;    for i:=1 to n-1 do        if i = 1 then Write(a, ', ')        else if i = 2 then Write(b, ', ')        else begin            Write(a+b, ', ');            t := a+b;            a := b;            b := t;        end;    WriteLn(a+b);end;begin    Fibbonachi(15);end.