Помогите найти непрерывный участок из 10 элементов, сумма которых максимальна

[Аватар]

Код ищет один непрерывный участок с максимальной суммой по всем строкам матрицы. А не для каждой строки. И в цикле ни чего не нужно выдавать. На этот комент посмотри

//s1 - max сумма, i1,j1 - координаты начала

Если нужно для каждой строки, то там переделать чуть-чуть. Сам придумай

[fool.rzn]

Прошу прощения, но все равно никак не могу я корректно вывести данные, не подскажешь как сделать чтобы он в каждой строчке искал и вывести по каждой строчке что то вроде этого:

(Uchastok s ',i,' do ',i+9,'- imeet maximalnuyu summu elementov= ',s);

по каждой строчке

Правда не пойму как сделать. Буду очень благодарен за помощь((((

[Аватар]

  const n = 20;
  var m: array [1..n,1..n] of Integer;
  ...
  s1:=-1;
  for i:=1 to n do begin
    s:=0;
    s2:=-1;  // добавил
    for j:=1 to n do begin
      Inc(s,m[i,j]);
      if j>=10 then begin
        if s>s1 then begin s1:=s; i1:=i; j1:=j-9; end;
        if s>s2 then begin s2:=s; j2:=j-9; end;    // добавил
        Dec(s,m[i,j-9]);
      end;
    end;
    //здесь выдавай по каждой строчке: s2 - max сумма в строчке, i,j2 - координаты начала
  end;
  //s1 - max сумма по всем строчкам, i1,j1 - координаты начала

[Aleksandr H.]

Аватар,
почему

s1 := -1 
s2 := -1

а не

s1 := m[1,1]
s2 := m[i,1]

?
Не могут в строке все елементы < -1?

[Аватар]

У ТС рандомно не отрицательными матрицы заполняются. Почему бы и не -1? Если бы там были и отрицательные, то так нельзя, так же как и m[1,1]

[Aleksandr H.]

Сообщение от Аватар

У ТС рандомно не отрицательными матрицы заполняются. Почему бы и не -1?

Пардон, не смотрел код ТС

Сообщение от Аватар

Если бы там были и отрицательные, то так нельзя, так же как и m[1,1]

А почему не m[1,1]? MIN_INT?

[Аватар]

А почему не m[1,1]?

с отрицательными m[1,1] может быть больше максимума

MIN_INT?

Это можно и задать стартовую позицию 0,0

[fool.rzn]

Сейчас чувствую себя последним нубом, но добавив все у меня выходит лажа:

program a1;
uses crt;
var
 a,b,sum,mas: array [1..20,1..20] of integer;
 m,n,i,j,s1,s2,s,i1,j1,j2: integer;
begin
 clrscr;
 write('Vvedite kolichestvo strok matric: ');
 readln(n);
 If (n>0) and (n<20) then
 begin
  write('Vvedite kolichestvo stolbcov matric: ');
 readln(m);
  If (m>0) and (m<20) then
  begin
   begin
   randomize;
   writeln;
   writeln ('matrica a:');
   for i:=1 to n do
    begin
     writeln;
     for j:=1 to m do
      begin
       a[i,j]:=random(10);
       write(a[i,j],' ');
      end;
    end;
   writeln;
   writeln;
   writeln('matrica b:');
   for i:=1 to n do
    begin
     writeln;
     for j:=1 to m do
      begin
       b[i,j]:=random(10);
       write(b[i,j],' ');
      end;
    end;
    end;

   begin
    writeln;
    writeln;
    writeln('Summa: ');
    for i:=1 to n do
     begin
     writeln;
     for j:=1 to m do
      begin
       sum[i,j]:=a[i,j]+b[i,j];
       write(sum[i,j],' ');
      end;
    end;
    end;
    end
     else
 Writeln ('Vvedite znachenie ot 1 do 20');
    end
 else
 Writeln (' Vvedite znachenie ot 1 do 20');
 Writeln;
 Writeln;
 Writeln ('Neprerivniy uchastok is 10 elementov:');
 Writeln;
  s1:=-1;
  s:=0;
  s2:=-1;
  for i:=1 to n do begin

    for j:=1 to m do begin
      Inc(s,mas[i,j]);
      if i>=10 then begin
        if s>s1 then begin s1:=s; i1:=i; j1:=j-9; end;
        if s>s2 then begin s2:=s; j2:=j-9; end;
        Dec(s,mas[i,j-9]);
      end;

    end;
     Writeln ('Uchastok s ',i,' do ',j2,' - imeet maximalnuyu summe elementov= ',s2);
  end;
   Writeln;
   Writeln ('Uchastok s ',i,' do ',j1,' - imeet maximalnuyu summu elementov po vsey matrice= ',s1);
 readkey;
end.

А в результат вылетает вот так:

[Аватар]

Внимательно сравни каждую строку своего кода с кодом из #13. Как минимум 3 ошибки есть

[fool.rzn]

У меня же вроде все тоже самое, только значения s и s2 присвоил перед циклом, переменная m вместо n, а так же название массива другое, остальное же все так