Имеет место дополнительное разделение предприятий и организаций …
тип ответа: одиночный выбор
вариант 1. по характеру производства, по численности, по типу производства, по связям и по типу производственного цикла
вариант 2. на территориальное, отраслевое, иерархическое и организационное
вариант 3. по степени децентрализации, по уровню дивизиональности, по типу иерархии и по типу используемой логистики

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<Min then Min:=S;
    End;
WriteLn('Min = ',Min);
End.

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

Исходная матрица:
  8   3   0
  1   3  -5
  3 -10  -6

Min = 11

Uses Crt;
Const
   N = 20;
Var
   MX:array[1..N] of integer;
   i,k:integer;
Begin
ClrScr;
Randomize;
k:=0;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    MX[i]:=random(10);
    Write(' ',MX[i]);
    if MX[i] mod 2 <> 0 then k:=k+1;
    End;
WriteLn;
WriteLn('Количество нечётных элементов: ',k);
Write('Преобразованный массив:');
For i:= 1 to N do
    Begin
    MX[i]:=MX[i]-k;
    Write(' ',MX[i])
    End;
ReadLn
End.

uses Crt;
Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Max,Min:integer;
Begin
ClrScr;
Randomize;
Min:=1;
Max:=1;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(44)+17;
    Write(' ',A[i]);
    if A[Min]>A[i] then Min:=i;
    if A[Max]<A[i] then Max:=i;
    End;
WriteLn;
WriteLn('Max = ',A[Max]);
WriteLn('Min = ',A[Min]);
WriteLn('Max - Min = ',A[Max]-A[Min]);
ReadLn
End.

Const
   N = 13;
Var
   MM:array[1..N] of byte;
   B:byte;
   i,Max:integer;
Begin
Randomize;
Max:=1;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    MM[i]:=random(90)+10;
    Write(' ',MM[i]);
    if MM[i]>MM[Max] then Max:=i;
    End;
WriteLn;
WriteLn('Max(MM) = MM[',Max,'] = ',MM[Max]);
Write('Новый массив:');
B:=MM[1];
MM[1]:=MM[Max];
MM[Max]:=B;
For i:= 1 to N do
    Write(' ',MM[i])
End.