сумма элементов из области матрицы, отмеченной символом * Опции

[valerosha]

Здравствуйте,
подскажите, пожалуйста, решение или укажите нужное направление

Var A: array [1..n, 1..n] of real; (n-нечетно).
Найти сумму элементов из области матрицы A, отмеченной символом ‘*’:
0 0 0 * 0 0 0
0 0 * * * 0 0
0 * * * * * 0
* * * * * * *
0 * * * * * 0
0 0 * * * 0 0
0 0 0 * 0 0 0

[volvo]

Можно сделать ровно в 2 раза меньше циклов:

  s := 0;
  for i := -(n div 2) to (n div 2) do
    for j := abs(i) + 1 to n - abs(i) do s := s + arr[i + (n div 2) + 1, j];