Question

Решить в паскаль!

Дана прямоугольная матрица. Найти строку с на меньшей суммой элементов.

И если не сложно опишите действия.

Заранее спасибо!
​

Answer 1

Программа:

const n=5; m=6;

var  

a:array[1..n,1..m] of integer;

i,j,s,min,k:integer;

begin

Randomize;

writeln('Исходный массив:');

for i:=1 to n do

begin

for j:=1 to m do

 begin

  a[i,j]:=random(100);

  write(a[i,j]:4);

 end;

 writeln;

end;

min:=0; k:=1;

for j:=1 to m do min:=min+a[1,j];

writeln('s1 = ',min);

for i:=2 to n do

begin

s:=0;

for j:=1 to m do s:=s+a[i,j];

writeln('s',i,' = ',s);

if s<min then begin min:=s; k:=i; end;

end;

writeln('min сумма = ',min,' (',k,'-я строка)');

end.

Пример:

Исходный массив:

 24  61  29  35  82   8

 98  58  55   2  11  35

 14  46  59  55  79   8

  4  25   4  48  83  49

 96  27  56  87  91  63

s1 = 239

s2 = 259

s3 = 261

s4 = 213

s5 = 420

min сумма = 213 (4-я строка)

Answer 2

Ответ:

begin

 var m := 6;

 var n := 10;

 var a := MatrRandom(m, n);

 a.Println;

 for var i := 0 to m - 1 do

   Println($'Sum(Row({i})) =',a.Row(i).Sum);

 a.Rows.Select(x -> x.sum).Numerate(0).MinBy(x -> x[1])[0].Println;

end.

Объяснение: