@wingblack

Для работы со стеком обычно делают функцию с именем pop и процедуру с именем push, для очереди, наверное, также. Это не является требованием, просто общепринятое (распространенное) именование, также как и использование переменных с именами i и j для итераций.

Ну-с.
Дано: стек с цифрами.
Следовательно сначала тебе нужно заполнить стек какими-то значениями, там рандомом или с клавиатуры, сам выбирай по постановке задачи.
Решение:
По одному вытаскиваем числа из стека, ищем максимум и минимум, и записываем в очередь.
Когда стек пуст - следовательно мы нашли максимум и минимум. Теперь беремся за очередь. По одному вытаскиваем числа и сверяем с максимумом и минимумом. Как только встретили первое число равное максимуму или минимуму - его и все последующие прибавляем к сумме, и ждем пока очередное число станет равным про минимуму или максимуму соответственно (т.е. наоборот от первого), добавляем его в сумму и останавливаем алгоритм.

Вернуться к обсуждению:
Задача со Стеком и Очередью Delphi

1