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

Writeln;

readln;

for i:=1 to n do

begin

y:=stacktop-f;

push;

pop;

end;

push;

for i:=1 to n do

begin

push);

pop;

end;

list;

14. Дан стек из целых чисел. Прибавить ко всем элементам число вводимое с клавиатуры.

15. В стек записаны элементы типа typeelem. Записать содержимое стека в обратном порядке в тот же стек. Используйте два вспомогательных стека.

randomize;

init;

init;

init;

for i:=1 to n do

begin

y:=random-random;

push;

end;

list; Writeln;

for i:=1 to n do

begin