квадратная матрица, ромб

[JosH7]

помогите пожалуйста!!
задана матрица 5Х5. нужно найти суму элементов, которые находятся в ромбе в середине этого квадрата.. наперед огромное спасибо!!
напр.
0 0 1 0 0
0 1 1 1 0
1 1 1 1 1
0 1 1 1 0
0 0 1 0 0

[McFrey]

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

[JosH7]

а если записать как то попроще? чтоб просто i и j менялись??

[McFrey]

это итак самый простой вариант....и на мой взгляд самый быстродейственный

[JosH7]

спасибо!!)))