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

begin

y:=random-random;

push;

end;

list; Writeln;

f:=1;

for i:=1 to n-1 do

begin

f:=f*abs);

push);

pop;

end;

push;

for i:=1 to n-1 do

begin

push);

pop;

end;

list;

writeln;

13. Дан стек, заполненный случайными числами. Вычесть из всех элементов стека число вводимое с клавиатуры. Используйте второй стек для хранения данных.

randomize;

init;

init;

for i:=1 to n do

begin

y:=random-random;

push;

end;