Вычислить норму матрицы по формуле N=min(i)E(j)|a(i,j)| Лучше смотрите формулу по прикрипленному файлу.
Заранее спасибо.

program N_matrix;
uses crt;
const
n=3;
var a:array[1..n,1..n] of word;
sum,i,j: word;
begin clrscr;randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(6);GoToXY(i,j);write(a[i,j]);
sum:=0;
writeln;
for i:=1 to n do
for j:=1 to n do
sum:=sum+a[i,j];
writeln(sum);
end.
for i:=1 to n do
for j:=1 to n do
sum:=sum+a[i,j];
min:=maxint; {или любое большое число - чтобы в матрице заведомо была строка с суммой меньше него}
for i:=1 to n do {для каждой строки}
begin
for j:=1 to n do
sum:=sum+a[i,j]; {считаем сумму элементов данной строки, проходя по всем столбцам}
if sum<min then {если сумма эл-тов этой строки меньше найденных раньше сумм}
min:=sum;{то запоминаем ее значение}
sum:=0;{обнуляем, чтобы считать для следующей строки}
end;