Динамические переменные

[Unique]

Здрасте) Помогите реализовать решение задачи, приведенной ниже:

Дан набор из 10 чисел. Создать две очереди: первая должна содержать числа из исходного набора с нечетными номерами (1, 3, …, 9), а вторая — с четными (2, 4, …, 10); порядок чисел в каждой очереди должен совпадать с порядком чисел в исходном наборе.

Пожалуйста.

[DRAgon™]

Uses crt;
VAR n,i,j,ch:Integer;
BEGIN
WriteLn(' набор из 10 чисел: ');
Writeln;
for i:=1 to 10 do  begin
if (i>0) AND (i mod 2=0) then
Writeln('четные числа - ',i);
if (i>0) AND (i mod 2=1) then
Writeln('Нечетные числа - ',i);
end;
readln;
END.

не проверял

[Grag]

В цикле

for i:=1 to 10 begin
  if (i>0) .....

параметр цикла i никогда не будет равен 0 (или меньше 0), так что проверка (i>0) абсолютно бессмысленна!
проверить четность/нечетность можно так

 if odd(i)
   then //нечетное значение i
   else //четное значение i

Да и в решении задачи не видно ввода исходной последовательности чисел...

[Unique]

К сожалению, то что вы написали, не то)))
Название темы прочитайте еще раз))

[Serge_Bliznykov]

угу. к тоже же требуется реализация задачи на создание очередей, а в предложенном решении этим и не пахнет...

Unique, поищите по форуму:
Поиск: Ключевые слова: очередь ; Раздел: Паскаль и подразделы

[Grag]

Мона еще добавить ключевое слово "список"...

[vlad_light]

http://obvintsev.info/compuscience/l..._2.htm#N10_3_1
Вот, как наш "умный" проффесор описал очередь)))
п.с. только не надо мне тут говорить: "учи русский язык")))