Водномерном массиве, состоящем из n вещественных элементов, вычислить: 1. номер минимального по модулю элемента массива. 2. сумму модулей элементов массива, расположенных после первого отрицательного элемента. 3. сжать массив, удалив из него элементы, величина которых находится в интервале [a, b]. освободившиеся в конце массива элементы заполнить нулями.

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var v: =seqrandom(n,-99,99).select(t-> 0.1*t).toarray;   v.println;   var imin: =v.select(t-> abs(.indexmin;   writeln('номер минимального по модулю элемента- ',imin+1);   var fn: =v.select((x,i)-> (x,(t-> t[0]< 0).first[1];   writeln('сумма модулей элементов после первого отрицательного равна ',           v[fn+1: ].sum(t-> abs(;   var (a,b): =readreal2('введите границы интервала значений для удаления: ');   v: =v.where(t-> not t.between(a,;   var m: =n-v.length;   if n> 0 then begin       setlength(v,n);       for var i: =v.length to n-1 do v[i]: =0.0       end;   v.println end. пример n= 15 -9.4 3.9 6.2 -2.5 -5.2 9 4.9 -9.5 4.4 2.4 -8.8 3.1 -7.7 5.6 8.9 номер минимального по модулю элемента- 10 сумма модулей элементов после первого отрицательного равна 82.1 введите границы интервала значений для удаления: -20 2 3.9 6.2 9 4.9 4.4 2.4 3.1 5.6 8.9 0 0 0 0 0 0

Условие для pascal if a mod 2 = 0 then a: =a-12; где a - введенное пользователем число