programm1
const
  M=10;
  N=12;
Var
  a,b,i,j,min,amount,row,column : integer;
  matrix:array[1..M,1..N] of integer;
Begin
  a:=-42;
  b:=44;
  min:=44;
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          matrix[i,j]:=Random(b-a+1)+a;
        end;
    end;
  for i:=1 to M do
      begin
        for j:=1 to N do
          begin
            if (matrix[i,j] mod 2 = 0) and (matrix[i,j]>=2) then
              if (matrix[i,j] < min) and (matrix[i,j]<>min) then 
              begin
               min:=matrix[i,j];
               row:=i;
               column:=j;
              end;
          end;
      end;  
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          write(matrix[i,j], #9);
          if matrix[i,j] = min then inc(amount);
        end;
       writeln();
    end;
  write('Минимальное число = ',min,' Кол-во элементов= ', amount, '. Строка = ',row,', столбец = ',column);
End.

programm2

const
  M=10;
  N=12;
Var
  a,b,i,j: integer;
  matrix:array[1..M,1..N] of integer;
  amount:array[1..N] of integer;
Begin
  a:=-42;
  b:=44;
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          matrix[i,j]:=Random(b-a+1)+a;
        end;
    end;
  write(#9);
  for i:=1 to N do
  begin
    write(i,#9);
  end;
  writeln();
  for j:=1 to M do
    begin
      write(j,#9);
      for i:=1 to N do
        begin
          write(matrix[j,i], #9);
          if matrix[j,i] >0 then inc(amount[i]);
        end;
       writeln();
    end;
  write(#9);
  for i:=1 to N do
    begin    
      write(amount[i], #9);
    end;
End.

programm3

const
  M=10;
  N=12;
Var
  a,b,i,j : integer;
  amount:array[1..M] of integer;
  matrix:array[1..M,1..N] of integer;
Begin
  a:=-42;
  b:=44;
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          matrix[i,j]:=Random(b-a+1)+a;
        end;
    end;
  for i:=1 to M do
      begin
        for j:=1 to N do
          begin
            if (matrix[i,j] mod 2 <> 0) and (matrix[i,j]<=-1) then
              inc(amount[i]);;
          end;
      end;  
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          write(matrix[i,j], #9);
        end;
       write(amount[i]);
       writeln();
    end;
End.

programm4

const
  M=10;
  N=12;
Var
  a,b,i,j,min,max,row,row2 : integer;
  matrix:array[1..M,1..N] of integer;
Begin
  a:=-42;
  b:=44;
  min:=44;
  max:=-42;
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          matrix[i,j]:=Random(b-a+1)+a;
        end;
    end;
  for i:=1 to M do
      begin
        if (matrix[i,6]<min)then
         begin
          min:=matrix[i,6];
          row:=i;
         end;
        if (matrix[i,7]>max)then
        begin
          max:=matrix[i,7];
          row2:=i;  
        end;
      end;  
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          write(matrix[i,j], #9);
        end;
       writeln();
    end;
  writeln();
  writeln('Минимальный: ',min,'. Максимальный: ',max);
  matrix[row2,7]:=min;
  matrix[row,6]:=max;
  writeln();
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          write(matrix[i,j], #9);
        end;
       writeln();
    end;
End.

programm5

const
  M=10;
  N=12;
Var
  a,b,i,j,min : integer;
  max:array[1..N] of integer;
  matrix:array[1..M,1..N] of integer;
Begin
  a:=-42;
  b:=44;
  min:=-1;
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          matrix[i,j]:=Random(b-a+1)+a;
          max[j]:=-42;
        end;
    end;
  for i:=1 to N do
      begin
        for j:=1 to M do
          begin
            if (matrix[j,i]<=-1) and (matrix[j,i]>=max[i]) then
              max[i]:=matrix[j,i];
          end;
      end;  
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          write(matrix[i,j], #9);
        end;
       writeln();
    end;
   writeln();
   for i:=1 to N do
    begin
      write(max[i],#9);
      if max[i]<=min then min:=max[i];
    end;
   writeln();
   writeln();
   write(min);
End.

programm6

const
  M=10;
  N=12;
Var
  a,b,i,j: integer;
  str: string;
  positive: array[1..M] of integer;
  negative: array[1..M] of integer; 
  matrix:array[1..M,1..N] of integer;
Begin
  a:=-42;
  b:=44;
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          matrix[i,j]:=Random(b-a+1)+a;
        end;
    end;
  for i:=1 to M do
      begin
        for j:=1 to N do
          begin
            if (matrix[i,j]>=-1) then
              inc(positive[i]) else
              inc(negative[i]);
          end;
      end;  
  for i:=1 to M do
    begin
      for j:=1 to N do
        begin
          write(matrix[i,j], #9);
        end;
       if positive[i]>negative[i] then
         write('++') else if positive[i]=negative[i] then 
         write('==') else write('--');
       writeln();
    end;
End.