Поменять местами элементы массива стоящие на чётных и нечетных местах (1и2,

Алг массив
нач
  цел N = 10
  целтаб a[1:N]
  цел i, b
   нц для i от 1 до N
    a[i] := irnd(100)
    вывод a[i], " "
  кц
  вывод нс
 
  нц для i от 1 до div(N,2)
    b := a[2*i-1]
    a[2*i-1] := a[2*i]
    a[2*i] := b
    кц
  кц
 
  нц для i от 1 до N
    вывод a[i], " "
  кц
кон

Пример:
37 96 82 5 31 85 85 87 80 38
96 37 5 82 85 31 87 85 38 80