Матрица в Pascal

[W_P]

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

[Stilet]

Показывай как делаеш

[W_P]

я не знаю как сам алгоритм составить чтоб считал сумму по диагонали. Если просто типо сумму главной диагонали найти - то эт смогу а вот побочные хз как. Тем более если бы я знал что размерность матрицы всегда будет постоянной - то это как нибудь вручную написать можно чтоб сумму считал, но в цикле как это сделать не могу догнать.

[Stilet]

Если просто типо сумму главной диагонали найти - то эт смогу

Вот и начни с этого, ибо следующие диагонали получаются простым увеличение индекса на чегото там
Например
for i:=0 to 10 do a[i,i]:=0 - это по главной диагонали
for i:=0 to 10 do if (i<=10) then a[i,i+3]:=0;
- это по диагонали справа от нее на 3 шага, где a[10,10] - сама матрица

[W_P]

Не получаетса никак всеравно...Не могу составить цикл. Там же идет постепенное увеличениие элементов - т.е. в первом столбце снизу идет диагональ из одного элемента, потом следующая диагональ из 2 элементов и тд. до главной, а потом от главной на понижение количества элементов.
Отпиши тут или кто нибудь другой, кто может сделать задачу.Код сам выложите, а то чет никак не могу сообразить...

[puporev]

Вот какой код я нацарапал. Может не идеальный, но работает, проверял все промежуточные итоги.

program matrica;
uses crt;
var n,i,j,k,l,m,max:integer;
    a:array[1..20,1..20]of integer;
    b,c:array[1..38]of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
readln;
for l:=1 to n-1 do   //считаем суммы диагоналей выше главной
   begin
     for i:=1 to n-1 do
       begin
         for j:=2 to n do
         if j=i+l then
            begin
              b[l]:=b[l]+a[i,j]; //заносим их в массив
            end;
       end;
  end;
for l:=1 to n-1 do     //считаем суммы в диагоналях ниже главной
   begin
     for i:=2 to n do
       begin
         for j:=1 to n-1 do
         if j=i-l then
           begin
             c[l]:=c[l]+a[i,j];  //записываем их в массив
          end;
       end;
  end;
for i:=n to 2*n-2 do   //собираем два массива в один
b[i]:=c[i-n+1];
max:=b[1];
for i:=2 to n do
if b[i]>max then max:=b[i];  //находим максимум
writeln('max=',max);
readln;
end.

[W_P]

Спасибо большое! а то мне мозгов пока не хватает такие задачи решать.....

[puporev]

В строке 47 ошибка, нужно for i:=2 to 2*n-2 do