<span>uses</span> crt;
<span>const</span> n<span>=</span><span>10</span>;
<span>var</span> a<span>:</span><span>array</span><span>[</span><span>1</span>..<span>n</span><span>]</span><span>of</span><span>integer</span>;
i<span>,</span>j<span>,</span>k<span>:</span><span>byte</span>; c<span>:</span><span>integer</span>;
<span>begin</span>
randomize;
clrscr;
<span>writeln</span><span>(</span><span>'исходный массив: '</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> n <span>do</span> <span>begin</span>
a<span>[</span>i<span>]</span><span>:=</span>random<span>(</span><span>19</span><span>)</span><span>-</span><span>9</span>;
<span>write</span><span>(</span>a<span>[</span>i<span>]</span><span>:</span><span>3</span><span>)</span>; <span>end</span>; <span>writeln</span>;
k<span>:=</span><span>0</span>; <span>for</span> i<span>:=</span><span>1</span><span>to</span> n<span>-</span><span>1</span><span>do</span> <span>f</span>
or j:=i+1 to n do if a[i]>a[j] then begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
inc(k);
end;
writeln('результат сортировки: ');
for i:=1 to n do write(a[i]:3);
writeln;
writeln('кол-во перестановок = ',k);
end.