Написать программу с массивом и отсортировать его тремя разными ...

Viktor

const

 n=10;

type  
 massive = array [1..n] of integer;

procedure select(mas : massive);

var

 i, j, k,tmp: integer;

begin

 for i:=1 to n-1 do

   begin

     k:=i;

     tmp:=mas[i];

     for j:=i+1 to n do

       if (mas[j]mas[j+1]) then

       begin

         tmp:=mas[j];

         mas[j]:=mas[j+1];

         mas[j+1]:=tmp;

       end;

 write('Сортировка пузырьком:');

 for i:=1 to n do

   write(' ',mas[i],', ');

end;

procedure insert(mas : massive);

var

 i,j,k,tmp : integer;

begin

 for i:=2 to n do

   begin

     tmp:=mas[i];

     j:=1;

     while (tmp>mas[j]) do

       j:=j+1;

     for k:=i-1 downto j do

       mas[k+1]:=mas[k];

     mas[j]:=tmp;

   end;

write('Сортировка вставкой:');

for i:=1 to n do  
 write(' ',mas[i],', ');

end;  

var

i : integer;

a : massive;

begin

 randomize;

 write('Массив:');

 for i:=1 to n do

   begin

     a[i]:=random(100);

     write(a[i]:4);

   end;

 writeln;

 select(a);

 writeln;

 bubble(a);

 writeln;

 insert(a);

end.