Нужно сделать эти задачи в VBA я вообще в этом не разбираюсь
1.Числа Фибоначчи определяются формулами: f0=f1=1; fn=f(n-1) + f(n-2) при n=2,3,...
Определить f - 40-е число Фибоначчи.
2.Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей.
3.Дано целое k от 2 до 20. Найти коэффициенты k-го многочлена Чебышева ( многочлены Чебышева определяются по формулам
T0(x)=1; T1(x)=x
Tn(x)=2*x*T(n-1)(x)-T(n-2)(x), n=2,3...).
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-20,20).Select(i->i/10).ToArray;
Write('Массив: '); a.Println;
Writeln('Сумма элементов с нечетными номерами: ',
a.Where((x,i)->i.IsEven).Sum);
var i1:=a.FindIndex(x->x<0);
var i2:=a.FindLastIndex(x->x<0);
Write('Вторая искомая сумма: ');
if i2=i1 then Writeln(0)
else Writeln(a[i1+1:i2].Sum);
Write('Сжатый массив: ');
a:=a.Where(x->abs(x)>1).ToArray; a.Println;
end.
Пример
n= 10
Массив: 1.8 0.2 1 -2 0.1 0.4 -1 1.2 -1.4 0.6
Сумма элементов с нечетными номерами: 0.5
Вторая искомая сумма: 0.7
Сжатый массив: 1.8 -2 1.2 -1.4