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

push);

while not emptydo

push);

list;

19. Дан стек из целых чисел, заполненный случайным образом. Используя только стеки, отсортировать элементы стека по возрастанию. На дне стека минимальный элемент, в вершине – максимальный. Используйте нужное количество стеков.

randomize;

init;

init;

init;

init;

for i:=1 to n do

begin

y:=random;

push;

end;

list; Writeln;

while not emptydo begin

push);

while not emptydo begin

if stacktop>=stacktop then

begin push); push); end

else push); end;

push);

while not emptydo

push);

end;

while not emptydo

push);

list; Writeln;