В заданном стеке найти минимальный по абсолютному значению элемент и удалить все элементы с таким значением. (Искать, перекладывать в дополнительный стек, удалять при перекладывании обратно: [1,7,-1,3,2],получили [7,3,2]).

begin
  var St:=new Stack;
  foreach var k in ReadSeqInteger('Вводите данные:',ReadInteger('n=')) do
    St.Push(k);
  St.Println; // исходное содержимое стека
  var St1:=new Stack;
  var min:=MaxInt;
  var k:integer;
  while St.Count>0 do begin
    k:=St.Pop;
    if Abs(k)     St1.Push(k);
    end;
  while St1.Count>0 do begin
    k:=St1.pop;
    if Abs(k)<>min then St.Push(k)
    end;
  St.Println
end.

Пример
n= 5
Вводите данные: 2 3 -1 7 1
1 7 -1 3 2
7 3 2

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.