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

Приложения:

BobbyFresnel: В первой или переходить на real, или делать с BigInteger. А так - пустяковые задачи.

Ответы

Ответ дал: LRSM
0

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.

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

Приложения:
Вас заинтересует