В одномерном массиве состоящем из n вещественных элементов вычислить:
1. Сумму элементов массива с нечетными номерами.
2. Сумму элементов массива, расположенных между первым и отрицательными элементами.
Сжать массив удалив из него все элементы, модуль которых не превышает 1.

Паскаль
Получившийся ответ отправьте тоже пожалуйста

// PascalABC.NET 3.2, сборка 1431 от 28.04.2017// Внимание! Если программа не работает, обновите версию!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