Question

Составить программу для решения следующей : дана матрица размером m*n и число k (1< =k< =m). найти сумму и произведение элементов k -ой строки данной матрицы

Answer 1

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  var k:=ReadInteger('Номер строки для подсчета:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Row(k-1);
  Writeln('Сумма элементов в выбранной строке: ',b.Sum);
  Writeln('Произведение элементов в выбранной строке: ',
    b.Aggregate(BigInteger(1),(x,y)->x*y))
end.

Пример
Количество строк в матрице: 6
Количество столбцов в матрице: 13
Номер строки для подсчета: 4
*** Исходная матрица [6,13] ***
  -6  19 -16 -42  -2 -13 -11  10 -24  18   9 -21 -17
 -46   3 -13  27  -2 -19  39  12 -23  20 -11  48  43
  -5  40 -41  -2 -27  30  47 -33  38  38 -50  31   4
  20 -46 -46  42  13 -48 -41  50 -23   3 -44 -15   2
  32  20 -26 -34  49  46 -39   6  42  -1   1  29  -5
  29 -17 -34 -33  15 -13  46  44  12  34   8 -15 -43

Сумма элементов в выбранной строке: -133
Произведение элементов в выбранной строке: -207088709667840000