Так здесь все легко если n четное то победит первый при любой игре если n нечетное то победит второй
может ты задачу не до конца дослушал
Исходник во вложении.
P.S.Правда не совсем удачная реализация...
Обработка, передача, хранение
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>