uses crt;

const n=10;

var a:array[1..n]ofinteger;          

 i,j,k:byte; c:integer;

begin  

randomize;  

clrscr;  

writeln('исходный массив: ');  

for i:=1to n do   begin    

a[i]:=random(19)-9;  

 write(a[i]:3);   end;  writeln;

 k:=0;  for i:=1to n-1do   f

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.