работает для PascalABC const n=10; var a:array [1..n] of integer; i,c:integer; begin for i:=1 to n do a:=random(50); writeln(a); i:=1; repeat swap(a,a[i+1]); //в других паскалях заменить эту строку на c:=a; a:=a[i+1]; a[i+1]:=c; inc(i,2); until i>10; writeln(a); end.