Var a:array[1..10000] of real;
    min,d,count,s: real;
    i,j,m,n,key: integer;
      begin
       Randomize;
       write('Введите n ');
       readln(n);
       writeln('Наш массив: ');
        for i:=1 to n do
          begin
            a[i]:=random(21)-10;
            Write(a[i]:1:1,' ');
          end;
        m:=0;
        writeln();
         for i:=1 to n do
            if a[i]=0 then m:=m+1;
             writeln('Количество нулевых элементов=',m);
             min:=a[1];
            for i:=2 to n do begin
            if a[i]<=min then min:=a[i];
            if a[i]<=min then m:=i;
         end;
        s:=0;
        for i:=m+1 to n do
          s:=s+a[i];
          writeln('Сумма элементов, после последнего минимального=',s:3:1);
          for i:=1 to N do
            begin
              for j:=1 to N-1 do
               begin
                key:=j+1;
                count:=a[key];
                  if abs(a[j])>=abs(a[key]) then
                    begin
                      a[key]:=a[j];
                      a[j]:=count;
                    end;
               end;
          end;
      writeln('Отсортированный по возрастанию модулей массив: ');
  for i:=1 to n do begin
     Write(a[i]:1:1,' ');
  end;
end.