Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы.

program prog;
 
uses
  Crt;
const
  M = 3;
  N = 4;
var
  matrix: array[1..M, 1..N] of Integer;
  i, j: Integer;
  k: Integer;
  sum: Integer;
  product: Integer;
begin
  ClrScr;
  Randomize;
  for i:= 1 to M do begin
    for j:= 1 to N do begin
      matrix[i,j]:= Random(10);
      Write(matrix[i,j]:3);
    end;
    WriteLn;
  end;
 
  {-------------------------------}
  repeat
    WriteLn('Input K: ');
    ReadLn(k);
  until (K >= 1) and (K <= M);
 
  sum:= 0;
  product:= 1;
  for j:= 1 to N do begin
    sum:= sum + matrix[K,j];
    product:= product * matrix[K,j];
  end;
 
  WriteLn('сумма: ', sum);
  WriteLn('произведение: ', product);
 
  ReadLn;
end.

program prog;
 
uses
  Crt;
 
type
  pInteger = ^Integer;
  BinFunc = function(a, b: Integer): Integer;
 
{------------------------}
function accumulate(first, last: pInteger; v: Integer; func: BinFunc): Integer;
begin
  while(first <= last) do begin
    v:= func(v, first^);
    Inc(first);
  end;
  accumulate:= v;
end;
 
{------------------------}
function sum(a, b: Integer): Integer; begin sum:= a + b; end;
function mul(a, b: Integer): Integer; begin mul:= a * b; end;
 
{------------------------}
const
  M = 3;
  N = 4;
var
  matrix: array[1..M, 1..N] of Integer;
  i, j: Integer;
  k: Integer;
begin
  ClrScr;
  Randomize;
  for i:= 1 to M do begin
    for j:= 1 to N do begin
      matrix[i,j]:= Random(10);
      Write(matrix[i,j]:3);
    end;
    WriteLn;
  end;
 
  //-------------------------------
  repeat
    WriteLn('Input K: ');
    ReadLn(k);
  until (K >= 1) and (K <= M);
 
  WriteLn( 'сумма: ', accumulate(@matrix[k,1], @matrix[k,N], 0, sum) );
  WriteLn( 'произведение: ', accumulate(@matrix[k,1], @matrix[k,N], 1, mul) );
 
  ReadLn;
end.