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

y:=random-random;

push;

end;

list; Writeln;

f:=pop;

repeat

y:=pop;

push;

until empty;

push;

repeat

y:=pop;

push;

until empty;

list; Writeln;

9. Дан стек заполненный случайным образом из целых чисел. Поменять в данном стеке содержимое вершины и дна.

randomize;

init;

init;

for i:=1 to n do

begin

y:=random-random;

push;

end;

list; Writeln;

f1:=pop;

repeat

y:=pop;

push;