// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var z:=MatrRandom(4,6,10,80);
z.Println(4); Writeln(4*z.ColCount*'-');
var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);
Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])
end.
Пример
*** Исходный массив ***
47 18 64 34 29 42
68 55 80 68 44 34
15 51 43 75 32 52
21 38 36 48 58 69
Максимальный элемент z[2,3]=80
Объяснение:
// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var z:=MatrRandom(4,6,10,80);
z.Println(4); Writeln(4*z.ColCount*'-');
var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);
Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])
end.
Пример
*** Исходный массив ***
47 18 64 34 29 42
68 55 80 68 44 34
15 51 43 75 32 52
21 38 36 48 58 69
Максимальный элемент z[2,3]=80
Объяснение: