Question

Дан массив 3x3 из целых чисел.Найти сумму элементов главной диагонали.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := MatrRandom(3, 3, -99, 99);

 a.Println(4);

 Writeln(4 * a.ColCount * '-');

 a.ElementsWithIndexes.Where(t -> t[1] = t[2]).Sum(t -> t[0]).Println

end.