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

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

[Krjuger]

Дам небольшую идею.Вот смотри,если матрица у нас не квадратная,и допустим n>m,то мы получим что строк больше столбцов (логично),но тогда у нас останется поледний центральный столбец,и несколько строк вместо одного центрального элемента,а если m>n,то ситуация получится обратной.Самое логичное разделить да 2 случая.Затем,поразмышляйте,как можно избавится от 2 внутрених циклов внутри for i:=1 to k do begin.Приглядитесь к ним,ведь они отличаются лиш чем?поменялись местами i,j и j вы учеличили на один)