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

while not emptydo begin

push); end;

list; writeln;

5. Дан стек из целых чисел, заполненный случайным образом. При помощи второго стека удалить последний отрицательный элемент.

randomize;

init;

init;

for i:=1 to n do begin

y:=random-random;

push; end;

list;

y:=0;

while not empty do begin

if <0) and then begin pop; y:=1; end;

push);

end;

list;

while not empty do

push);

list;

6. Дан стек заполненный элементами типа typeelem. Удалить из стека предпоследний элемент.

randomize;

init;

for i:=1 to n do

begin

y:=random-random;

push;

end;

list; Writeln;