Автор: Bronislav

Bronislav — Wed, 29 Aug 2018 22:17:04 +0000

program Matrix25;//pabc.net

begin
  var m := 5;
  var n := 4;
  
  var a := MatrRandom(m, n, 0, 9); a.Println;
  
  var MaxSum := a.Row(0).Sum;
  var k := 0;
  
  for var i := 1 to m - 1 do
  begin
    var RowSum := a.Row(i).Sum;
    if MaxSum < RowSum then
    begin
      MaxSum := RowSum;
      k := i;
    end;  
  end;
  
  Write($'i = {k+1}, MaxSum = {MaxSum}');
end.

program Matrix25;//pabc.net

begin

var m := 5;

var n := 4;

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

var MaxSum := a.Row(0).Sum;

var k := 0;

for var i := 1 to m - 1 do

begin

var RowSum := a.Row(i).Sum;

if MaxSum < RowSum then

begin

MaxSum := RowSum;

k := i;

end;

Write($'i = {k+1}, MaxSum = {MaxSum}');

end.

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

Автор: Bronislav