const
  nmax=100;
type
  Tarr=array[1..nmax] of real;
var
  a:Tarr;
  i,j,imin,fo,so,n,z:integer;
  s,buf:real;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-10+random*20;
      if i=1 then
        imin:=1
      else if a[i]<a[imin] then
        imin:=i;
      write(a[i]:5:1);
    end;
  writeln;
  writeln('Nomer min. el. massiva = ',imin);
  {Poisk summy mezhdu 2 otr.}
  i:=1;
  while (i<=n) and (a[i]>=0) do
    inc(i);
  if i>n then
    writeln('V massive net otr. el.')
  else if i=n then
    writeln('V massive tolko 1 otr. el.')
  else
    begin
      fo:=i;
      i:=fo+1;
      while (i<=n) and (a[i]>=0) do
        inc(i);
      if i>n then
        writeln('V massive tolko 1 otr. el.')
      else if i=fo+1 then
        writeln('Mezhdu 1 i 2 otr. net elementov')
      else
        begin
          so:=i;
          s:=0;
          for i:=fo+1 to so-1 do
            s:=s+a[i];
          writeln('Summa el. mezhdu 1 i 2 otr. el.=',s:5:1);
        end;
    end;
  {Preobrazovanie massiva}
  z:=0;
  for i:=1 to n do
    if abs(a[i])<=1 then
      begin
        buf:=a[i];
        z:=z+1;
        for j:=i downto z+1 do
          a[j]:=a[j-1];
        a[z]:=buf;
      end;
  writeln('Preobrazovanniy massiv:');
  for i:=1 to n do
    write(a[i]:5:1);
end.