Question

Помогите решить задачи, язык: Pascal

Answer 1

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.

Примеры работ: