рассортируйте заданный линейный массив по возрастанию.(Pascal)
Answers & Comments
sokoI
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
Answers & Comments
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