В целочисленной матрице размером 10х10 случайным образом задать элементы. Вывести на экран исходную матрицу. Найти максимальное значение и индексы всех элементов равных максимальному значению.
Ответы
Ответ дал:
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.
Внимание! Если программа не работает, обновите версию!
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.
Приложения:
![](https://st.uroker.com/files/7d0/7d048a3ed03a549906c6ab35fa38ced6.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад