Question

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

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

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

Answer 2

Для решения данной задачи описанного алгоритма, можно использовать два стека. Один стек будет использоваться для исходных данных, а другой - для временного хранения элементов, когда мы проверяем, является ли элемент минимальным по абсолютному значению.

Давайте представим алгоритм в виде шагов:

1. Инициализируем два пустых стека: mainStack и tempStack.
2. Проходим по всем элементам исходного стека inputStack.
3. Если стек tempStack не пуст и текущий элемент из inputStack по абсолютному значению меньше, чем верхний элемент tempStack, то:
   1. Очищаем стек tempStack.
   2. Помещаем текущий элемент в tempStack.
4. Если стек tempStack пуст или текущий элемент равен абсолютному значению верхнего элемента tempStack, то:
   1. Помещаем текущий элемент в tempStack.
5. После прохода по всем элементам, стек tempStack будет содержать только минимальные элементы по абсолютному значению.
6. Теперь копируем элементы из mainStack обратно в inputStack, пропуская элементы, которые находятся в tempStack.
7. Получаем итоговый стек inputStack, содержащий элементы без минимальных по абсолютному значению.

Давайте реализуем этот алгоритм на псевдокоде:

pythonCopy code
function findAndRemoveMinAbs(inputStack):
    mainStack = new Stack()
    tempStack = new Stack()

    # Шаг 2
    for each element in inputStack:
        # Шаг 3
        while not tempStack.isEmpty() and abs(element) < abs(tempStack.peek()):
            tempStack.pop()

        # Шаг 4
        if tempStack.isEmpty() or abs(element) == abs(tempStack.peek()):
            tempStack.push(element)

        mainStack.push(element)

    # Шаг 6
    while not mainStack.isEmpty():
        element = mainStack.pop()

        if not tempStack.isEmpty() and abs(element) == abs(tempStack.peek()):
            tempStack.pop()
        else:
            inputStack.push(element)

    # Результат будет в inputStack после выполнения функции

# Пример использования:
inputStack = new Stack([1, 7, -1, 3, 2])
findAndRemoveMinAbs(inputStack)
print(inputStack)  # Выведет: [7, 3, 2]

Обратите внимание, что в реализации предполагается наличие стека с именем Stack, который содержит основные операции стека, такие как push, pop, peek, isEmpty. Вы также можете использовать стандартную реализацию стека в своем языке программирования.