решить задачи, язык: Pascal - вопрос №13570641 от elbrusikus 15.07.2021 09:36

Question

Информатика: решить задачи, язык: Pascal

elbrusikus · Answer

PascalABC.NETЗадание 1:begin var n := ReadInteger( n: ); var a := MatrRandom(n, n, -27, 28); a.Println; a.ElementsByRow.Product(x - x 0 ? BigInteger(x) : 1).Print end.Задание 2:begin var n := ReadInteger( n: ); var a := ArrRandom(n, -18, 24); a.Println; a.Where(x - x 0).ElementAt(2).Print end.Примеры работ:...