Сделайте программу в паскале 1.одномерный массив случайных целых чисел от 1 до 40 из диапазона от -40 до 60 . определить сумму элементов , номера которых - числа фибоначчи . 2 дан целочисленный массив из 30 элементов , значение которых принадлежит от -10000 до 10000 . определить количество пар элементов , сумма которых нечётна и отрицательна . пара - два подряд идущих элемента . - max длину последовательности рядом стоящих элементов по неубыванию .
var i, n, s:integer; a:array[1..40] of integer;
begin
s:=0;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100)-40;
writeln(a[i],' ');
end;
for i:=1 to n do
begin
a[i]:=a[i-1]+a[i-2];
s:=s+a[i];
end;
writeln('s=',s);
end.