Вот функция:
Код
type TElem = integer; {или другой тип элементов матрицы}
Arr = array[1..20,1..20] of TElem;
function Norm(A:Arr; n:word):TElem; {возвращает норму матрицы А размером n на n}
var i,j:word;
max,tmp:TElem;
begin
max:=0;
for j:=1 to n do
begin
tmp:=0;
for i:=1 to n do tmp:=tmp+abs(a[i][j]);
if tmp>max then max:=tmp;
end;
Norm:=max;
end;
А вообще-то , dukalis , ты пробовал как-то сам это написать? Задание-то очень простое до скуки.
Ну, а если что-то конкретно непонятно, спроси, поможем.