Помогите решить задачку:формирование перечня из n частей Прибавленье элемента А после

А если можно вторым наибольшим считать число и меньше абсолютного максимума, то два максимума есть всегда и фраза " если такого нет ничего не устранять" неясно для чего.

Ну так в задании написано

Уважаемый, задание - это Для вас дали, а не нам. Ваше дело - опубликовать вопрос так, чтоб было совершенно точно светло, что конкретно нужно сделать.

А если Вы просто перемещаете вопрос сюда, а ответ туда, то Вы - лишнее звено в этой цепочке.

Я уточнил, она обязана устранять циклический максимальный.А если схожих максимальных нету, то ничего не удалять.

Если перечень (6,89,100,17,5,) то вставляем после 89 , и выходит (6,89,71,100,17,5) в таком случаи ничего не удаляем ( поскольку нету повторяющихся максимальных.

А если перечень (6,89,100,17,5,) то вставляем после 89 , и получается (6,89,100,100,17,5) в таком случаи устраняем вторую сотку.

Либо список (6,98,17,5,99) вставляем после 98, вставляем 99 и получаем (6,98,99,17,5,99) и в конце получим (6,98,99,17,5)

Т.е. все же вставка после второго от начала элемента, одинакового наибольшему либо более недалёкого к нему.

Вставка после элемента более недалёкого к максимальному , к примеру если в перечне максимальный элемент 63 а более близкий к нему 45 , то вставка после 45 . Самостоятельно от того в какой части списка он стоит

// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var L := ReadSeqInteger('Вводите:', ReadInteger('N=')).ToList;

 L.Println; // исходная

 var k := L.OrderDescending.Skip(1).First; // после чего вставить

 var A := ReadInteger('Что вставляем?');

 L.Insert(L.IndexOf(k) + 1, A);

 L.Println; // после вставки

 k := L.Max;

 var ai := L.ToArray.IndexesOf(t -gt; t = k).ToArray;

 if ai.Count gt; 1 then

 begin

   L.RemoveAt(ai[1]);

   L.Println; // после удаления, если оно было

 end;

 L := L.SortedDescending.ToList;

 L.Println // после сортировки

end.