Вцелочисленной матрице размером 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку