Задача с двумерным массивом, Элементы равный сумме по... Опции

[Relrin]

Дан массив A размерности n*m . Получить одномерный массив B, элементы которого получены путем суммирования элементов исходного массива , находящихся по периметрам.

В качестве примера, вот набросал, изображение такого рода:


Прогресс не очень далеко, а может и нет. Работает правда этот кусочек кода для массива n*n, а вот для n*m ломаю голову... Пока дошел вот до этого:

k:=n div 2; 
for i:=1 to k do begin 
sum:=0; 
{строки} 
for j:=i to n-i+1 do 
sum:=sum+x[i,j]+x[n-i+1,j]; 
{столбцы} 
for j:=i+1 to n-i do 
sum:=sum+x[j,i]+x[j,n-i+1]; 
writeln(sum); {вывод суммы} 
end; 
if n mod 2=1 then 
writeln(x[k+1,k+1]);

[Lapp]

Боюсь, что все гораздо проще..
Способ, которым ты пошел, в корне порочен. Нет смысла обходить специальным образом, если все равно нужно просуммировать все. Основная идея - определить минимальное расстояние до края (расстояние до ближайшего края) массива. Это и будет "номер контура".
Вот тебе решение, разбирайся. Если будут вопросы - задавай, отвечу..

  if m<n then d:=(m-1)div 2+1 else d:=(n-1)div 2+1;  // calculating the b size
  for i:=1 to m do for j:=1 to n do begin
    k:=d;                      // set to max possible
    if i<k then k:=i;          // top distance
    if j<k then k:=j;          // left distance
    if m-i+1<k then k:=m-i+1;  // bottom distance
    if n-j+1<k then k:=n-j+1;  // right distance
    Inc(b[k],a[i,j]);          // adding to sum array
  end;