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

[Tribunal]

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

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

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

[Tribunal]

и аналогичная задача:

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

[klem4]

Пользуйся поискомб все уже решалось по сто раз

1.1

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

begin

   clrscr;

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

   writeln;

   for flag := false to true do begin

      if flag then i := 1
       else i := 2;

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

      writeln;
   end;

   readln;
end.

[Tribunal]

а что такое flag и inc?

[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.

[Tribunal]

а как с элементами четными/нечетными?

[klem4]

проверка, является ли число - четным

if n mod 2 = 0 then // число четное
 else // число не четное

либо

if odd(n) then // число не четное
 else // число четное

[Tribunal]

а что такое odd?

[klem4]

А что по коду не ясно ? Ф-я возвращает true если ее аргумент не четный