procedure push(a: integer); begin inc(size); stack[size] := a; <span>end;
procedure view; var i: integer; begin for i := 1 to size do write(stack[i], ' '); writeln; end;
<u><em>Для очереди:</em></u> const MAX_SIZE = 100; var head, tail: integer; queue: array[1..MAX_SIZE] of integer;
procedure push(a: integer); begin queue[tail] := a; inc(tail); <span>end;
procedure view; var i: integer; begin for i := head to tail - 1 do write(queue[i], ' '); writeln; <span>end;
<em><u>И стек и очередь реализованы с помощью массива. Нужно следить, чтобы размер структуры не был больше размера массива</u></em></span></span></span>