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

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

randomize;

init;

init;

for i:=1 to n-1 do

begin

y:=random-random;

push;

end;

list; Writeln;

f:=0;

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;

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

randomize;

init;

init;