Массивы

[decantnik]

Здравствуйте! Наткнулся на одну задачу, и застрял..

Array15. Дан массивA размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем — элементы с четными номерами в порядке убывания номеров.

В целом задача была бы легкая, но стоит "Условный оператор не использовать.".
Есть несколько идей, 1:

 i:=1; While i<n do begin
writeln(a[i]);
i:=i+2;
end;
i:=2;
While i<n do begin
writeln(a[i]);
i:=i+2;
end;

2:

m:=1;
 for i:=1 to n div 2 
 begin 
a[i]:=a[m];
m:=m+2;

[Greblin]

program pr1;

const N = 9;
      a: array[1..N] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9);

var i: integer;

begin
i := 1;
repeat
  write(a[i],' ');
  i := i + 2;
until i > N;
i := i - 1 - (N mod 2)*2;
repeat
  write(a[i],' ');
  i := i - 2;
until i <= 0;
readln;
end.

[SuperVisor]

const
  N = 9;
  a: array[1..N] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9);

var
  i: integer;
  s
begin
  for i:=0 to ((n div 2)+(n mod 2))-1 do
    write(a[i*2+1],' ');

  writeln;

  for i:=(n div 2) downto 1 do
    write(a[i*2],' ');
  readln;
end;

Матчасть, будь она не ладна..

[Stilet]

(1, 2, 3, 4, 5, 6, 7, 8, 9)

Вы ребята конечно жуки хитрые, но я будь преподавателем придрался бы к такой "сортировке".

Тут минимум нужно вычислять математически.

А чтоб меня голосло вно во флуде не обвиняли предлагаю сортир пузырем без условий:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var i,j,k,l:integer;
   a:array[1..5] of integer;
 Procedure exc(var q,w:integer);
 var l,s,m,mx:integer;
 begin   {$o-}
   s:=q+w;
   m:=abs(q-w);
   l:=(s-m) div 2;
   q:=l;
   w:=s-l;
 end;
begin
 Randomize;
 for i:=1 to 5 do  begin a[i]:=random(100); Write(a[i]:5); end;
 // Типа сортир пузырем
   for i:=1 to 5 do begin
    for j:=1 to 4 do begin
     exc(a[j],a[j+1]);
    end;
   end;
 //********************
 writeln;
 for i:=1 to 5 do  Write(a[i]:5);
 writeln;

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.