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

[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]

тут походу точно должно быть две матрицы, или я ошибаюсь?

И здесь все делается теми же двумя циклами:

  for i := 1 to n div 2 + n mod 2 do
    for j := i to n - i + 1 do
    begin
      s := s + a[i, j];
      if i <> n div 2 + n mod 2 then { Чтобы центральный элемент не посчитать дважды }
        s := s + a[n - i + 1, j];
    end;