Рассортируйте заданный линейный массив по возрастанию.(pascal) - вопрос №2479108 от zild228 24.07.2022 03:07

Question

Информатика: Рассортируйте заданный линейный массив по возрастанию.(pascal)

zild228 · Answer

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