Минимальный элемент одномерного массива A заменить ** третий отрицательный элемент....

Question

Минимальный элемент одномерного массива A заменить на третий отрицательный элемент. Третий отрицательный искать от минимального элемента. Pascal

Answer 1

// PascalABC.NET 3.6.3

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var imin := a.IndexMin;

 var i := a?[imin + 1:].Indices(p -> p < 0).Skip(2).DefaultIfEmpty(-1).First;

 if i = -1 then

   Print('Нет такого элемента')

 else

 begin

   a[imin] := a[imin + i + 1];

   a.Print

 end

end.