Массивы

[Rival]

Массивы

Вводится, любой, двумерный нечетный массив.(обязательно нечетный)
Пример нечетного массива 5x5 на фото. На рисунке в нем выделен ромб, все элементы его граней нечетные. Среди элементов, находящихся за его гранями найти максимальный. На фото эти элементы обведены кругами. Среди них максимальный 7.
Помогите пожалуйста. У меня вообще нет идей, как вывести этот максимальный элемент. Ведь это ни диагональ и ни строка обо что операться я не знаю.

 

[Rival]

Не добавилось фото в предыдущем посте.

 

[Vladimir_S]

У меня вообще нет идей, как вывести этот максимальный элемент.

У нас тоже. Во всяком случае, до того момента, когда мы узнаем, на каком языке программирования следует выполнить задание. Но это, как Вы понимаете, строжайше охраняемая тайна, и знать нам того не положено. Увы.

 

[Rival]

У нас тоже. Во всяком случае, до того момента, когда мы узнаем, на каком языке программирования следует выполнить задание. Но это, как Вы понимаете, строжайше охраняемая тайна, и знать нам того не положено. Увы.

Извиняюсь, пока писал задание забыл написать язык.( На Паскале надо.

 

[Vladimir_S]

Извиняюсь, пока писал задание забыл написать язык.( На Паскале надо.

Ну, тогда-то что...

Const
 N=7;
Var
 A:Array[1..N,1..N] of Integer;
 i,j:Byte;
 Max:Integer;
Begin
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(40);
     write(A[i,j]:6);
    end;
   Writeln;
  end;
 Writeln;
 Writeln;
 Max:=A[1,1];
 For i:=1 to (N div 2) do
  begin
   for j:=1 to (N div 2)+1-i do
    if A[i,j]>Max then Max:=A[i,j];
   for j:=(N div 2)+1+i to N do
    if A[i,j]>Max then Max:=A[i,j];
  end;
 For i:=(N div 2)+2 to N do
  begin
   for j:=1 to i-(N div 2)-1 do
    if A[i,j]>Max then Max:=A[i,j];
   for j:=N+(N div 2)+2-i to N do
    if A[i,j]>Max then Max:=A[i,j];
  end;
 Writeln('Max = ',Max);
 Readln
End.

 

[Rival]

Спасибо большое!