В строке записаны числа от 1 до 2015 в случайном порядке. Разрешается менять местами любые числа, стоящие через 1, либо через 2. Докажите, что можно расставить числа по возрастанию.

просто запускаешь механизм "пузырьковой" сортировки:const n=2015vara:array[1..n] of integer;i, j, d: integer;begin(считаем, что массив у нас уже заполнен, так что перехожу сразу к части с сортировкой)for j:=n downto 2 dofor i:=1 to (j-1) doif a[i]>a[i+1] thenbegind:=a[i];a[i]:=a[i+1];a[i+1]:=d;end;end.доказательства ради, можно вывести массив на печать, добавив перед последним "end" строки:for i:=1 to n dowirite(a[i], ' ');