Вывод четных и нечетных чисел в массив Опции

[kissliatinka]

Парни! Помогите девушке разобраться с массивами...

Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем - все нечетные числа в порядке убывания их индексов.

Заранее благодарю..

[klem4]

for i := 1 to n do
 if not(odd(x[i])) then writeln(x[i]);
for i := n downto 1 do
 if odd(x[i]) then writeln(x[i]);

еше один вариант :

for i := 1 to n do
 if (x[i] mod 2 = 0) then writeln(x[i]);
for i := n downto 1 do
 if not(x[i] mod 2 = 0) then writeln(x[i]);

Сообщение отредактировано: volvo - 7.11.2006 23:39

[Guest]

Буду пробовать, спасибо [IMG]http://forum.tts.lt/style_emoticons/default/appl.gif[/IMG]

[volvo]

Извращенный вариант:

const
  n = 10;
  arr: array[1 .. n] of integer =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
var
  b: boolean;
  i: integer;

begin
  i := 2;
  for b := false to true do begin
    dec(i);
    while (i >= 1) and (i <= n) do begin

      if odd(arr[i]) = b then writeln(arr[i]);
      if b then dec(i) else inc(i)

    end;
  end;
end.

[Ska-P!]

Лучше бы на С++ это все делали. Там это проще!!!

!

Ты название форума читал ? Если не читал, то прочти. Даже если тебе этого покажется мало, то _ГДЕ_ ты выдел чтобы автор просил решение на С++ ? klem4 Добавлено мисс_граффити: Вы еще на дату последного сообщения посмотрите... Больше года прошло.

Сообщение отредактировано: мисс_граффити - 28.12.2006 15:37