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

[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;  // calculate contours amount (size of b)
  for i:=1 to d do begin                             // cycle through contours
    for j:=i to m-i+1 do begin                       // rows (with edges)
      Inc(b[i],a[j,i]);
      if i<n-i+1 then Inc(b[i],a[j,n-i+1]);          // do not count a central row twice
    end;
    for j:=i+1 to n-i do begin                       // columns (edges excluded)
      Inc(b[i],a[i,j]);
      if i<m-i+1 then Inc(b[i],a[m-i+1,j]);          // do not count a central column twice
    end
  end;