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

Roman2321 Roman2321    2   21.09.2019 04:20    0

Ответы
sofiya130308 sofiya130308  08.10.2020 06:17
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.

Вцелочисленной матрице размером 10х10 случайным образом задать элементы. вывести на экран исходную м
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика