Const
 N=20;
Var
 C,D:Array[1..N] of Integer;
 i,j,Imin:Byte;
 Min,a,b:Integer;
 Sum:Word;

Begin
 Randomize;
 Writeln('Initial array:');
 Min:=200;
 For i:=1 to N do
  begin
   C[i]:=-50+Random(100);
   Write(C[i]:8);
   if Abs(C[i])<Min then
    begin
     Imin:=i;
     Min:=Abs(C[i]);
    end;
  end;
 Writeln;
 Writeln('Number of minimal element (abs. value) is ',Imin);
 Writeln;
 Sum:=0;
 j:=0;
 Repeat
  Inc(j);
 Until C[j]<0;
 For i:=j+1 to N do Inc(Sum,Abs(C[i]));
 Writeln('Sum= ',Sum);
 Writeln;
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 For i:=1 to N do D[i]:=0;
 j:=0;
 For i:=1 to N do
  if (C[i]<a) or (C[i]>b) then
   begin
    Inc(j);
    D[j]:=C[i];
   end;
 Writeln('Compressed array: ');
 For i:=1 to N do Write(D[i]:8);
 Readln
End.