рассортируйте заданный линейный массив по возрастанию.(Pascal)

1

Ответы и объяснения

2014-03-19T19:00:11+00:00
Procedure Bubble(var item: DataArray; count:integer);
 var
 i,j: integer;
 x: DataItem
 begin
 for i := 2 to count do
 begin
 for j := count downto i do
 if item[j-1]>item[j] then
 begin
 x := item[j-1];
 item[j-1] := item[j];
 item[j] := x; 
 end
 end
 end