Двумерные массивы в Pascal

[AnL]

Размерности массивов следует задать именованными константами.

Дана целочисленная квадратная матрица. Определить:
1. Сумму элементов в тех столбцах, которые содержат только четные элементы.
2. Минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы.

Пожалуйста помогите с написанием данной задачи, для меня это дремучий лес, ничего не понимаю. Написать нужно простейшим с пособом, т.е. без использования процедур, если возможно. Заранее спасибо!

[Базиля]

если объяснишь что значит

2. Минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы.

то попробую решить

[IT-man]

const n=5;
var a:array[1..n,1..n] of integer;
var b:array[1..2*n-1] of integer;
s,k:integer;
i,j:integer;
begin
Randomize;
writeln('--------------');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20);
write(a[i,j]:5);
end;
writeln;
end;
for j:=1 to n do begin
s:=0;k:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
if a[i,j] mod 2 =0 then k:=k+1;
end;
if k=n then writeln('summa ',j,' stolb=',s);
end;
for i:=1 to n do
for j:=1 to n do
b[i+j-1]:=b[i+j-1]+abs(a[i,j]);
k:=b[1];
for i:= 2 to 2*n-1 do
if b[i]<k then k:=b[i];
writeln('min sr abs sum diag=',k);
readln;
end.

[AnL]

Найти сумму по модулю элементов слева и справа от побочной диагонали. Сравнить их и вывести минимальное среди этих сумм. Вроде так.

Первая часть сделана, осталась только вторая

[AnL]

Спасибо за помощь и оперативность, уважуха!!!

[IT-man]

Первая часть сделана, осталась только вторая

Там Обе Части сделаны

[AnL]

Сообщение от IT-man

Там Обе Части сделаны

Спасибо!!!