Стек

[Spanchik]

Создать стек со случайными целыми числами в диапазоне [-220; 70]. Добавить в стек число, равное последнему элементу стека.

[Poma][a]

uses
    SysUtils,
    Math, 
    Contnrs;

const 
    FromA = -220;
    ToB = 70+1;

var
    st : TStack;
    n, i : Integer;
    p : PInteger;

begin
    st := TStack.Create;

    ReadLn(n);

    for i := 1 to n do begin
        New(p);
        p^ := RandomRange(FromA, ToB);
        Write(p^, ' ');
        st.Push(p)
    end;

    WriteLn();

    while st.AtLeast(1) do begin
        p := st.Pop();
        Write(p^, ' ');
        FreeMem(p)
    end;

    st.Free()
end.

Добавить в стек число, равное последнему элементу стека.

Каким образом это сделать?
Можно при инициализации запомнить первое число..
Можно нахимичить с памятью.. (Move) (не проверял)
Можно перекидать элементы в новый стек.. а потом вернуть всё на круги своя..

Как вариант хочет увидеть преп?

[Stilet]

st : TStack;

Эх... Хитро. Надежно... Но увы - военкомат победит

[Poma][a]

Эх... Хитро. Надежно...

Эт так.. для практики..

Но увы - военкомат победит

Чаво-чаво?
UPDATE
Дошло..

[Spanchik]

при помощи динамических массивов

[ZX Spectrum-128]

http://programmersforum.ru/search.php?searchid=1580077