двумерный массив, нужна помощь!

[sasha_14-88]

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

[ZX Spectrum-128]

И в чем заключается невозможность решения данной задачи?

[sasha_14-88]

Сообщение от ZX Spectrum-128

И в чем заключается невозможность решения данной задачи?

небыло бы сложности, не попросил бы))

[ZX Spectrum-128]

Да это понятно. Но вы же не халявщик, верно?
Договор: вы напишете заполнение массива случайными числами, а я все остальное. По рукам?

[sasha_14-88]

Сообщение от ZX Spectrum-128

Да это понятно. Но вы же не халявщик, верно?
Договор: вы напишете заполнение массива случайными числами, а я все остальное. По рукам?

по рукам, дружище)
var
a:array[0..10,0..10] of integer;
i,j,n,m:integer;
s:string;
begin
For i := 0 to n-1 do
for j := 0 to m-1 do
begin
a[i, j] := random(10);
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
end;

end;

[ZX Spectrum-128]

Ну, взялся за гуж
Пойду за компьютер

[ZX Spectrum-128]

	
	
{дана прямоугольная матрица. Определить номер строки с наименьшей суммой элементов.}

const
  n=3;
  m=3;
var
  a : array[1..n,1..m] of integer;
  imin,sum,min,i,j : integer;
begin
  For i := 1 to n do
    begin
    for j := 1 to m do
      begin
        a[i, j] := random(10);
        write(a[i,j]:3);
      end;
      writeln;
    end;

  For i :=1 to n do
    begin
    sum:=0;
    min:=sum;
    for j := 1 to m do
        sum:=sum+a[i, j];
      if sum<min then
        begin
          min:=sum;
          imin:=i;
        end;
    end;
    writeln(sum,' ',imin); // исправил
end.

[sasha_14-88]

Сообщение от ZX Spectrum-128

	
	
{дана прямоугольная матрица. Определить номер строки с наименьшей суммой элементов.}

const
  n=3;
  m=3;
var
  a : array[1..n,1..m] of integer;
  imin,sum,min,i,j : integer;
begin
  For i := 1 to n do
    begin
    for j := 1 to m do
      begin
        a[i, j] := random(10);
        write(a[i,j]:3);
      end;
      writeln;
    end;

  For i :=1 to n do
    begin
    sum:=0;
    min:=sum;
    for j := 1 to m do
        sum:=sum+a[i, j];
      if sum<min then
        begin
          min:=sum;
          imin:=i;
        end;
    end;
    writeln(sum,' ',imin); // исправил
end.

что то не то выводит и понять не могу почему с присваеваем 0 и выводим имин и сум

[Serge_Bliznykov]

думаю, что обнуление min в цикле - не есть правильно!!!

For i :=1 to n do
    begin
      sum:=0;
      min:=sum;
      for j := 1 to m do
          sum:=sum+a[i, j];
      if sum<min then  begin
          min:=sum;
          imin:=i;
      end;
    end;
    writeln(sum,' ',imin); // исправил

я бы так рекомендовал изменить и проверить (я не проверял):

{подсчитаем сумму элементов 1-й строки в переменную min}
min := 0;
for j := 1 to m do
        min:=min+a[1, j];
imin:=1; {пока считаем, что сумма в 1-й строке - минимальна!}

{теперь обработаем остальные строки матрицы}
For i :=2 to n do begin
    sum:=0;
    for j := 1 to m do
        sum:=sum+a[i, j];
     if sum<min then begin
          min:=sum;
          imin:=i;
     end;
  end;
  writeln('Minumm = ',min,' in row ',imin);

[ZX Spectrum-128]

Исправил согласно примечаниям Сергея.

{дана прямоугольная матрица. Определить номер строки с наименьшей суммой элементов.}

const
  n=5;
  m=7;
var
  a : array[1..n,1..m] of integer;
  imin,sum,min,i,j : integer;
begin
  randomize; 
  For i := 1 to n do
    begin
    for j := 1 to m do
      begin
        a[i, j] := random(10)-5;
        write(a[i,j]:3);
      end;
      writeln;
    end;

  {подсчитаем сумму элементов 1-й строки в переменную min}
  min := 0;
  for j := 1 to m do
    min:=min+a[1, j];
  imin:=1; {пока считаем, что сумма в 1-й строке - минимальна!}
  {теперь обработаем остальные строки матрицы}
  For i :=2 to n do
    begin
      sum:=0;
        for j := 1 to m do
          sum:=sum+a[i, j];
      if sum<min then
        begin
          min:=sum;
          imin:=i;
        end;
    end;
  writeln('Minumm = ',min,' in row ',imin);
  readln;
end.