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

Question

Информатика

Евлампий

4 октября, 20:24

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

+3

Ответы (1)

Знаете ответ на вопрос?

Эдуард · Answer 1

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