Здравствуйте, Эрик Насыров.
Вот в приложении код с некоторыми комментариями. Вывод предполагает, что числа не более, чем трехзначные
Вид окна приложения:

Приложение:
uses CRT;
CONST
N = 40;
Ar_max = 100; {Максимальное значение элемента в массиве}
Ar_max2 = Ar_max div 2;
VAR
ar: Array[1..N] of Integer;
i, j: Integer;
N_temp: Integer; {Размерность сжатого массива}
a, b: Integer;
sum: Longint; {Сумма может оказаться больше числа, которое "вмещается"
в Integer}
min_abs_no: Integer; {Номер минимального по модулю}
first_negative: Integer; {Номер первого отрицательного}
BEGIN
ClrScr;
{Заполнение случайными числами от -Ar_max2 до +(Ar_max2-1)}
for i:=1 to N do
ar[i] := (Random(Ar_max) - Ar_max2);
{Покажем исходный}
WriteLn('---- Исходный массив ------');
for i:=1 to N do Write(Ar[i]:5);
WriteLn;
min_abs_no:=1;
for i:=1 to N do
if abs(ar[i]) < abs(ar[min_abs_no]) then min_abs_no := i;
WriteLn;
Write('Минимальный по модулю элемент равен ', ar[min_abs_no]);
WriteLn(' имеет индекс ', min_abs_no);
first_negative := 0; {нулевого индекса нет,
если останется нулем - нет отрицательных}
for i:= 1 to N do
if ar[i] < 0 then begin
first_negative := i;
Break {Прерывает выполнение цикла}
end;
if first_negative = 0 then
WriteLn('В массиве нет отрицательных чисел')
else begin
sum := 0;
WriteLn('Индекс первого отрицательного элемента: ', first_negative);
for i:= first_negative + 1 to N do
sum := sum + abs(ar[i]);
WriteLn('Сумма модулей элементов после ',first_negative,
' равна: ',sum);
end;
{Защищенный от ошибочного ввод чисел a и b}
{$R+} {Проверка принадлежности диапазону включается}
repeat
Write('Введите первое граничное число a: ');
{$I-} ReadLn(a); {$I+}
i:= IOResult;
if i <> 0 then WriteLn('Ошибка ввода. Попробуйте еще раз');
until i = 0;
repeat
Write('Введите второе граничное число b: ');
{$I-} ReadLn(b); {$I+}
i:= IOResult;
if i <> 0 then WriteLn('Ошибка ввода. Попробуйте еще раз');
until i = 0;
{Если a > b - меняем местами}
if a > b then begin
i:= a;
a:= b;
b:= i
end;
{сжатие массива}
i := 1;
N_temp := N;
repeat
if (ar[i] >= a) and (ar[i] <= b) then begin
for j:=i+1 to N do
ar[j-1] := ar[j];
ar[N_temp] := 0;
N_temp := N_temp - 1
end
else i:= i+ 1;
until i > N_temp;
{Показ}
WriteLn('Массив после сжатия:');
if N_temp = 0 then WriteLn('Массив пуст') else
begin
if N = N_temp then WriteLn('Не было удалено ни одного элемента');
for i:= 1 to N_temp do Write(ar[i]:5);
WriteLn;
end;
WriteLn('Весь массив:');
for i:=1 to N do Write(ar[i]:5);
WriteLn;
WriteLn('Нажмите любую клавишу'); ReadKey
END.