Стек: найти минимальный элемент и заменить на 0 - Free Pascal
Формулировка задачи:
Создать стек со случайными целыми числами. Найти минимальный элемент и вставить на его место 0
Решение задачи: «Стек: найти минимальный элемент и заменить на 0»
textual
Листинг программы
{$mode ObjFPC}