В заданной матрице A (n*n) найти минимум всех сумм абсолютных величин элементов матрицы по столбцам. Использовать процедуры ввода и вывода элементов матрицы по строкам.

Const

N = 3;

Var

A:array[1 ... N, 1 ... N] of integer;

i, j:integer;

Min, S:real;

Begin

Randomize;

WriteLn ('Исходная матрица:') ;

For i: = 1 to N do

Begin

For j: = 1 to N do

Begin

A[i, j]:=random (21) - 10;

Write (A[i, j]:3,' ')

End;

WriteLn

End;

WriteLn;

Min:=0;

For i: = 1 to N do

Min:=Min+Abs (A[i, 1]) ;

For j: = 2 to N do

Begin

S:=0;

For i: = 1 to N do

S:=S+Abs (A[i, j]) ;

if S
End;

WriteLn ('Min = ', Min) ;

End.

Пример работы программы:

Исходная матрица:

8 3 0

1 3 - 5

3 - 10 - 6

Min = 11