Изменение порядка элементов в массиве Опции

[Tribunal]

Дан массив размера N. Вывести вначале его элементы с четными|нечетными индексами, а затем — с нечетными|четными .

задача элементарная,но похоже я её совсем усложнила и у меня получилась довольно глупая вещь=/
подскажите,пожалуйста=(

Сообщение отредактировано: Tribunal - 11.01.2006 8:22

[klem4]

flag - логически переменная
inc(i) то же самое что i := i + 1;

вот вариант без flag и inc

uses crt;
const
   n = 5;
var
   x : array[1..n] of integer;
   i : byte;

begin

   clrscr;

   for i := 1 to n do readln(x[i]);

   writeln;

   i := 1;

   while(i <= n) do begin
      writeln(x[i]);
      i := i + 2;
   end;

   writeln;

   i := 2;

   while(i <= n) do begin
      writeln(x[i]);
      i := i + 2;
   end;

   readln;
end.