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

21. Дан стек, заполненный случайными целыми числами. Удалить из стека повторяющиеся элементы, оставив по одному.

randomize;

init;

init;

init;

init;

for i:=1 to n do

begin

y:=random;

push;

end;

list; Writeln;

while not emptydo begin

push);

while not emptydo

if stacktop=stacktop then pop

else push);

while not emptydo

push);

end;

while not emptydo

push);

list ; Writeln ;

22. Удалить из стека, который состоит из целых чисел, все числа, которые не повторяются.

23. Стек заполнен однозначными и двухзначными числами. Поместить однозначные числа в один стек, двухзначные – в другой.

randomize;

init;

init;

init;