type mas=array of integer;
procedure massiv(var a:mas;n,k:integer);
var i:integer;
begin
setlength(a,n);
writeln('Исходный массив номер ',k);
for i:=0 to n-1 do
begin
a[i]:=random(1000);
write(a[i]:4)
end;
writeln;
end;
procedure sort_bouble(var a:mas;n:int
eger;var p:integer) ;
var i,k,x:integer;
begin
writeln('Сортировка пузырьком');
 p:=0;
 for k:=0 to n-2 do
 for i:=0 to n-2 do
 if a[i]>a[i+1] then
 begin
 inc(p);
 x:=a[i];
 a[i]:=a[i+1];
  a[i+1]:=x
 end;
 for i:=0 to n-1 do
 write(a[i]:4);
 writeln;
 writeln('Количество перестановок=',p)
 end;
 procedure sort_vyb(var a:mas;n:integer;var p:integer);
 var i,j,k,x:integer;
 begin
 writeln('Сортировка выбором');
 for i:=0 to n-2 do
 begin
 k:=i;
 for j:=i+1 to n-1 do
 if a[j]<a[k] then k:=j;
 inc(p);
 x:=a[i];
 a[i]:=a[k];
 a[k]:=x;
 end;
 for i:=0 to n-1 do
 write(a[i]:4);
 writeln;
 writeln('Количество перестановок=',p)
 end;

 var i,p1,p2,pb,pv:integer;
 a,a1:mas;
 begin
 randomize;
 pb:=0;
 pv:=0;
 for i:=1 to 5 do
 begin
 massiv(a,1000,i);
 a1:=a;
 writeln('Нажмите Enter для продолжения');
 readln;
 sort_bouble(a,1000,p1);
 inc(pb,p1);
 writeln('Нажмите Enter для продолжения');
 readln;
 sort_vyb(a1,1000,p2);
 inc(pv,p2);
 writeln('Нажмите Enter для продолжения');
 readln
  end;
 pb:=round(pb/5);
 pv:=round(pv/5);
 writeln('Среднее число перестановок:');
 writeln('- пузырек=',pb);
 writeln('- выбор=',pv);
 end.