Дан массив размера N (N — четное число). Поменять местами его первый элемент со вторым, третий — с четвертым и т. д.

Стучи в агент.

TYPE A[N];
for (int k = 1; k < N; k++)
{
TYPE T = A[k];
A[k] = A[k-1];
A[k-1] = T;
}

for j:=0 to n div 2-1 do begin
k:=a[j*2+1];
a[j*2+1]:=a[j*2+2]
a[j*2+2]:=k;
end;

Приблизительно так.

(define arr '(0 1 2 3 4 5 6 7 8 9))
(define oe-swap (lambda (arr)
(let loop ((res '())(l (reverse arr)))
(if (null? l) res
(loop (cons (car l) (cons (cadr l) res)) (cddr l))))))

(display (oe-swap arr))(newline)