решить задачи, язык: Pascal - вопрос №13569964 от artem7859 23.11.2020 04:22

Question

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

artem7859 · 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.Примеры работ:...