Рассортируйте заданный линейный массив по возрастанию.(Pascal)
Рассортируйте заданный линейный массив по возрастанию.(Pascal)
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы