задача

[Prin53]

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

[DiemonStar]

вот этот код доработаете и будет вам счастье:

var Max, Num, Sum, I, J : Integer; Mass : array[1..N,1..N] of integer;
.....
Max:=-32767; Num := 0;
for I = 1 to (N div 2) do
  for J = 1 to (N div 2) do
     begin
        Sum := Mass[2*I, 2*J] + Mass[2*I-1, 2*J] + Mass[2*I, 2*J-1] + Mass[2*I-1, 2*J-1];
        If Sum > Max then
          begin
             Max := Sum;
             Num := (I - 1) * (N div 2) + J;
          end;
     end;

[Prin53]

Сообщение от DiemonStar

вот этот код доработаете и будет вам счастье:

var Max, Num, Sum, I, J : Integer; Mass : array[1..N,1..N] of integer;
.....
Max:=-32767; Num := 0;
for I = 1 to (N div 2) do
  for J = 1 to (N div 2) do
     begin
        Sum := Mass[2*I, 2*J] + Mass[2*I-1, 2*J] + Mass[2*I, 2*J-1] + Mass[2*I-1, 2*J-1];
        If Sum > Max then
          begin
             Max := Sum;
             Num := (I - 1) * (N div 2) + J;
          end;
     end;

Только матрица то прямоугольная.

[DiemonStar]

Только матрица то прямоугольная.

я помню... и особенно про это:

четное количество строк и четное количество столбцов

собственно, а что Вас смущает?)

[Prin53]

Премного благодарен.