Модифицируйте игру Камень-Ножницы-Бумага, которую мы делали на уро">

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(5,5,0,100);
  Writeln('*** Исходная матрица ***');
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=a.ElementsWithIndexes.MaxBy(t->t[0]);
  Write('Максимальный элемент [',k[1]+1,',',k[2]+1,']=',k[0]);
  var p:=' на ';
  if k[1]<k[2] then p:=' выше '
  else if k[1]>k[2] then p:=' ниже ';
  Writeln(', расположен',p,'главной диагонали')
end.

Пример
*** Исходная матрица ***
  41   4  37  54  30
  71  73  75  65  22
  38  60  85  89  74
   0  87  82  55  69
  69  87  21  71  73

Максимальный элемент [3,4]=89, расположен выше главной диагонали

В пе­ре­мен­ной s сум­ми­ру­ют­ся раз­но­сти эле­мен­тов, иду­щих друг за дру­гом. Для того, чтобы s была наи­мень­шей после вы­пол­не­ния про­грам­мы, не­об­хо­ди­мо, чтобы раз­ность эле­мен­тов была наи­мень­шей. По­сколь­ку мас­сив це­ло­чис­лен­ный, наи­мень­шая раз­ность равна еди­ни­це. Ал­го­ритм об­ра­ба­ты­ва­ет пер­вые де­сять эле­мен­тов мас­си­ва, сле­до­ва­тель­но, наи­мень­шее зна­че­ние, ко­то­рое может иметь пе­ре­мен­ная s после вы­пол­не­ния дан­ной про­грам­мы, равно 27 + 10 · 1 = 37. ответ: 37.