Версия для печати темы

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;