Question

В целочисленной матрице размером 10х10 случайным образом задать элементы. Вывести на экран исходную матрицу. Найти максимальное значение и индексы всех элементов равных максимальному значению.

Answer 1

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(10,10,-99,99);
  a.Println(4); (40*'-').Println;
  var max:=a.ElementsByRow.Max;
  a.ElementsWithIndexes.Where(t->t[0]=max)
      .ForEach(t->Write('[',t[1]+1,',',t[2]+1,'] '))
end.