Вцелочисленной матрице размером 10х10 случайным образом задать элементы. вывести на экран исходную матрицу. найти максимальное значение и индексы всех элементов равных максимальному значению.
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.
Внимание! Если программа не работает, обновите версию!
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.