Курсовая работа: Динамические структуры данных. Решение задач. Стек. Очередь. Дек

init;

init;

init;

for i:=1 to n do

push;

list; Writeln;

while not emptydo begin

push);

push);

end;

while not or empty) do

push);

while not or empty) do

push);

list;

18. Стек заполнен целыми числами случайным образом. Записать в стек сначала четные элементы, затем – нечетные. Для решения задачи используйте два дополнительных стека.

randomize;

init;

init;

init;

for i:=1 to n do

begin

y:=random;

push;

end;

list; Writeln;

while not emptydo

if stacktop mod 2=0 then push)

else push);