Помощь - Поиск - Пользователи - Календарь
Полная версия: Вывод четных и нечетных чисел в массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kissliatinka
Парни! Помогите девушке разобраться с массивами...

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

Заранее благодарю.. give_rose.gif
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]);
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!
Лучше бы на С++ это все делали. Там это проще!!! mega_chok.gif

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

Добавлено мисс_граффити:
Вы еще на дату последного сообщения посмотрите... Больше года прошло.


Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.