Дан массив 3x3 из целых чисел.найти сумму элементов - вопрос №339564256 от salihvalishev 29.01.2020 23:17

Question

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

salihvalishev · Answer

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.