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

[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 19:39