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

f2:=pop;

push;

repeat

y:=pop;

push;

until empty;

push;

list; Writeln;

10. Дан стек из целых чисел, заполненный случайными образом. Сравнить сумму положительных элементов с модулем суммы отрицательных элементов.

randomize;

init;

init;

w:=1; w1:=1;

for i:=1 to n do begin

y:=random-random;

push; end;

list;

f:=true;

while not empty do begin

y:=pop;

if y>0 then w:=w*y

else w1:=w1*abs;

push;

end;

if w<w1 then writeln

else writeln;

while not empty do begin

y:=pop;

push; end;