Автор: Bronislav

Bronislav — Wed, 29 Aug 2018 20:49:54 +0000

program Matrix17;//pabc.net

begin
  var m := 5;
  var n := 4;
  var k := 1;
  
  var a := MatrRandom(m, n, 0, 9); a.Println;
  
  Write($'Row {k}: Sum = {a.Row(k-1).Sum}, ' + 
        $'Product = {a.Row(k-1).Aggregate(1, (p, x)-> p * x)}')
end.

program Matrix17;//pabc.net

begin

var m := 5;

var n := 4;

var k := 1;

var a := MatrRandom(m, n, 0, 9); a.Println;

Write($'Row {k}: Sum = {a.Row(k-1).Sum}, ' +

$'Product = {a.Row(k-1).Aggregate(1, (p, x)-> p * x)}')

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix17

Автор: Bronislav