Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы - Turbo Pascal»

textual
procedure TForm1.Button2Click(Sender: TObject);
begin
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i+j,i];
    if j=1 then max_sum := sum
    else if sum>max_sum then max_sum := sum;
    end;
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i,j+i];
    if j=1 then max_sum1 := sum
    else if sum>max_sum1 then max_sum1 := sum;
    end;
    if max_sum1>max_sum then max_sum := max_sum1;
    label2.caption:=IntToStr(max_sum);
end;

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы