Задача:заштрихованная область квадратной матрицы, в заштрихованной квадратной матрице найти макс элемент Опции

[Анастасия]

Задача .Дана квадратная матрица 9*9 . Найти наибольший элемент и его индексы внутри заштрихованной(в прикрепленном файле -зеленой) области. (Знаю , что надо как-то формулой связать строки и столбцы(i и j), но как?).

[klem4]

Не уверен что оптимальный вариант, но работать с этим куском можнотак :

uses crt;
const
  n = 13;
var
   x : array [1..n, 1..n] of byte;
   i,j,m : byte;

begin

   clrscr;

   FillChar(x, sizeof(x), 0);

   m := n div 2 + 1;


   for i := 1 to m  do
    for j := m-i+1 to m + i - 1 do x[i,j] := 7;

   for i := m + 1 to n do
    for j := i - m + 1 to m + n - i do x[i,j] := 7;

   for i := 1 to n do begin
      writeln;
      for j := 1 to n do write(x[i,j],' ');
   end;
   readln;
end.