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

list; Writeln;

push);

while not emptydo

if stacktop<=stacktop then begin push); push) end

else push);

push);

while not emptydo

push);

writeln;

list;

27. Найти в стеке, составленном из целых чисел, максимальный элемент и поместить его в дно стека.

28. В стеке, составленном из целых чисел, найти минимальный элемент и поместить его в вершину стека.

randomize;

init;

init;

init;

for i:=1 to n-1 do

begin

y:=random-random;

push;

end;

list; Writeln;

push);

while not emptydo

if stacktop<=stacktop then begin push); push) end

else push);

while not emptydo

push);

push );