ПАСКАЛЬ. СТЕК

[loki_man]

Дано число N(N>0) и набор из N чисел. Сделать стек, который имеет исходные числа(последнее число будет вершиной стека) и вывести указатель на его вершину.

[spein]

Когда-то писал на парах:
1 - добавление, 2 - вывод, 3 - выход

uses crt;
var
 action,i:integer;
 a:array[1..20] of integer;
begin
 while(action<>3) do begin
  case action of
   1:begin
    write('a[',i+1,']=');
    readln(a[i+1]);
    i:=i+1;
    clrscr;
   end;
   2:begin
    writeln('a[',i, ']=', a[i]);
    if(i>1) then
    i:=i-1;
   end;
  end;
  write('Type action:');
  readln(action);
  end;
end.

[Олвин]

вывести указатель на его вершину

Они всерьёз этого хотят? Вывести на экран указатель?

[DiemonStar]

Они всерьёз этого хотят? Вывести на экран указатель?

скорее всего имелось ввиду смещение вершины относительно начала стека (т.е. чтобы определить количество элементов в стеке), но не вижу сложностей и с выводом указателя)

[spein]

В моей программе указатель вершины стэка - переменная і.

[loki_man]

Спасибо, большое!!!
Недавно учить начал и никак не понимаю =)
Очень рад, что нашлись хорошие и умные люди

[Rediska512]

а разве массив является стеком? О_о

[VintProg]

а разве массив является стеком? О_о

с точки зрения, выского уровневого языка.

[Пепел Феникса]

с точки зрения, выского уровневого языка.

нет.
стек по сути лишь способ доступа к элементам.

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