Question

Сделайте программу в Паскале пожалуйста 1.Одномерный массив случайных целых чисел от 1 до 40 из диапазона от -40 до 60 . Определить сумму элементов , номера которых - числа фибоначчи . 2 Дан целочисленный массив из 30 элементов , значение которых принадлежит от -10000 до 10000 . Определить количество пар элементов , сумма которых нечётна и отрицательна . Пара - два подряд идущих элемента . - max длину последовательности рядом стоящих элементов упорядоченных по неубыванию .

Answer 1

Program proizv;
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.