[DelphiM0ZG]

Сообщение от Alinca3303

Заменить нулями элементы массива между минимальным и максимальным, кроме их самих.

Вы же уже знаете как найти максимальный элемент, минимальный находится по такому же принципу - заведите переменную MinInd, и в том же цикле поставьте такое же условие, только со знаком "больше" (>).

Нашли эти 2 элемента: выясняем какой индекс больше, а какой меньше с помощью простого условного оператора If ... Then

Для примера я предположу, что: MinInd<MaxInd

Код:

For i:=MinInd+1 To MaxInd-1 Do
  Mas[i]:=0;

Это же элементарно. А первая задача - вообще до ужаса простая.