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

Question

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

Answer 1

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