uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,k,min:integer;
begin
clrscr;
write('Массив -> ');
for i:=1 to n do read(m[i]);
readln;
k:=0;
for i:=1 to n do if m[i]<0 then inc(k);
write('Всего отрицательных элементов - ',k);
min:=1;
for i:=1 to n do if abs(m[i])<abs(m[min]) then min:=i;
k:=0;
for i:=min+1 to n do k:=k+abs(m[i]);
writeln('Сумма модулей элементов после MIN = ',k);
for i:=1 to n do if m[i]<0 then m[i]:=sqr(m[i]);
for i:=1 to n do
for j:=1 to n-1 do
if m[j]>m[j+1] then
begin
k:=m[j];
m[j]:=m[j+1];
m[j+1]:=k;
end;
writeln('Отсортированный массив');
for i:=1 to n do write(m[i],' ');
readln;
end.