������������� ������������� ����� � �������

����� �������, ��� ���������� ��������� � ����� �� ����������� ���������� ����� n. ����� ���� ����� ������������ �  ������� ���� ����������:

        ����������: array [1..n] of T;
        �����: integer;

        ���������� [1],...,���������� [�����].

• ����� ������� ���� ������, ���������� ��������

          ����� := 0
  

• �������� ������� t:

          {����� < n}
          ����� := �����+1;
          ���������� [�����] :=t;
  

• ����� ������� � ���������� t:

           t := ���������� [�����];
           ����� := ����� - 1;
  

• ���� ����, ���� ����� = 0.
• ������� ����� ����� ���������� [�����].

����� �������, ������ ���������� ���� ���� � ��������� �� ������� ����� ������������ ��� ���������� ���������� � �����. ����� ����� ���������� ��� stack, �������

    const N = ...
    type
      stack = record
      | ����������: array [1..N] of T;
      | �����: integer;
      end;

      procedure �������� (t: T; var s: stack);
      begin
      | {s.����� < N}
      | s.����� := s.����� + 1;
      | s.���������� [s.�����] := t;
      end;