В одномерном массиве из N вещественных элементов, вычислить:

[MrDelni]

• номер минимального по модулю элемента массива;
• сумму модулей элементов массива, расположенных после первого отрицательного элемента.
Сжать массив, удалив из него все элементы, величина которых находится в
интервале [a, b]. Освободившиеся в конце массива элементы заполнить нулями.

вот что я придумал про первый пункт:
Var X:array[1..100] of real;
i,imin,n:integer;
Begin
write('Введите N: ');readln(n);
writeln('Исходный');
For i:=1 to n do
Begin
X:=random (10)-10;
write(X);
End;
imin:=1;
For i:=2 to n do
if abs(X)<abs(X[imin]) then imin:=i;
writeln;
writeln('Индекс min по модулю элемент = ',imin);
end.

[Oleg_Rus]

Стукни в асю