Двумерный массив. Определить минимальную сумму элементов строки двумерного массива

[vralayala]

Определить минимальную сумму элементов строки двумерного массива.

[Вадим Мошев]

Что вы уже сделали самостоятельно?

[vralayala]

program kony;
const k=10;
const l=10;
var a:array[1..k,1..l] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 10 do begin
for j:=1 to 10  do begin
a[i,j]:=0+random(9);
write(a[i,j],'  ');
end;
writeln;
end;

end.

дальше, к сожалению ,не могу придумать

program kony;
const k = 10;
const l = 10;
var a: array[1..k, 1..l] of integer;
  i, j, s, min: integer;
begin
  for i := 1 to 10 do begin
    for j := 1 to 10 do begin
      a[i, j] := 0 + random(9);
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  for i := 1 to k do begin
    s := 0;
    for j := 1 to l do s := s + a[i, j];
    writeln('Сумма ', i, '-й строки', s);
    if s <
  end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ну, в целом нормально.
дальше используем стандартную процедуру поиска минимального значения.
например, так:

begin
  for i := 1 to 10 do begin
    for j := 1 to 10 do begin
      a[i, j] := 0 + random(9);
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  min := -1;  {присвоим число, которого заведомо не может являться суммой строки при данном заполнении. Как вариант, можно ещё использовать MaxInt}
  for i := 1 to k do begin
    s := 0;
    for j := 1 to l do s := s + a[i, j];
    writeln('Сумма ', i, '-й строки', s);
    if  min < 0 then min := s  {если ещё ни разу не запоминали минимум, сделаем это}
    else
      if s < min then min := s;
  end;
  WriteLn('Минимальная сумма равна ', min);
  Readln
end.

ещё вариант (c MaxInt)

begin
  for i := 1 to 10 do begin
    for j := 1 to 10 do begin
      a[i, j] := 0 + random(9);
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  min := MaxInt;  {присвоим число, которого заведомо не может являться суммой строки при данном заполнении - максимально возможное целое значение MaxInt}
  for i := 1 to k do begin
    s := 0;
    for j := 1 to l do s := s + a[i, j];
    writeln('Сумма ', i, '-й строки', s);
    if s < min then min := s;
  end;
  WriteLn('Минимальная сумма равна ', min);
  Readln
end.

ещё вариант - с отдельным подсчётом суммы 1-й строки

begin
  for i := 1 to 10 do begin
    for j := 1 to 10 do begin
      a[i, j] := 0 + random(9);
      write(a[i, j], ' ');
    end;
    writeln;
  end;

  {найдём сумму элементов 1-й строки}
  s := 0;
  for j := 1 to l do s := s + a[1, j];
  min := s;  {изначально будем считать сумму элементов первой строки минимальным значением}
  for i := 2 to k do begin  {начиная со 2-й строки массива}
    s := 0;
    for j := 1 to l do s := s + a[i, j];
    writeln('Сумма ', i, '-й строки', s);
    if s < min then min := s;
  end;
  WriteLn('Минимальная сумма равна ', min);
  Readln
end.

ну и ещё один вариант (используем счётчик цикла i для определения необходимости иницилизировать минимальное значение:

begin
  for i := 1 to 10 do begin
    for j := 1 to 10 do begin
      a[i, j] := 0 + random(9);
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  for i := 1 to k do begin  
    s := 0;
    for j := 1 to l do s := s + a[i, j];
    writeln('Сумма ', i, '-й строки', s);
    if i=1  then min := s
    else 
       if s < min then min := s;
  end;
  WriteLn('Минимальная сумма равна ', min);
  Readln
end.

изучайте, сравнивайте, выбирайте наиболее понятный/подходящий!


p.s. кстати, крайний вариант (использование переменной счётчика цикла в качестве признака) не рекомендую в качестве практического решения - могут быть неприятные сюрпризы при использовании некторых оптимизирующих компиляторов....


p.p.s.
у Вас в коде некрасиво заполняется массив! Заполнение массива тоже нужно сделать зависимым от констант!!!
вот так:

  for i := 1 to k do begin
    for j := 1 to l do begin
      a[i, j] := 0 + random(9);
      write(a[i, j], ' ');
    end;
    writeln;
  end;