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

begin

y:=random;

push;

end;

list; Writeln;

while not emptydo

if stacktopdiv 10=0 then push)

else push);

list; Writeln;

list; Writeln;

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

25. Создать стек из целых чисел, в котором каждый элемент равен сумме предшествующих элементов. Первый элемент равен одному.

randomize;

init;

push;

y:=0;

for i:=2 to n do begin

y:=y+stacktop;

push; end;

list;

26. Дан стек из целых чисел. Найти минимальный элемент стека и записать его в дно стека.

randomize;

init;

init;

init;

for i:=1 to n-1 do

begin

y:=random-random;

push;