Минимальный элемент одномерного массива Х длины N заменить нулем. Если несколько элементов имеют значение, равное минимальному, то на 0 заменить все.

это даже не смешно..

for i:=1 to N do if mas[i]==min then mas[i]:=0;