program MATRICA;
var
 A,B:array [1..6,1..6] of integer;
 I,J,Npos,Nneg,Max,Imax:INTEGER;
Begin
 RANDOMIZE;
 Max:=-100;
 for I:=1 to 4 do
  for J:=1 to 6 do
   begin
    A[I,J]:=45-random(100);
    If A[I,J]>Max then Max:=A[I,J];
   end;
  writeln('ЗАДАНА МАТРИЦА А');
  for I:=1 to 4 do
   Begin
    writeln;
    for J:=1 to 6 do
     write(A[I,J]:6);
   end;
  writeln;
  Writeln;
  Npos:=0;
  For J:=1 to 6 do
   If A[3,J]>0 then Inc(Npos);
  Nneg:=0;
  For I:=1 to 4 do
   If A[I,3]<0 then Inc(Nneg);
  Writeln('Max= ',Max,';     Npos= ',Npos,';    Nneg= ',Nneg);
  IF Npos>Nneg then
   begin
    Imax:=4;
    for I:=1 to 4 do
     for J:=1 to 6 do
      B[I,J]:=A[I,J]*Max;
   end
  else
   begin
    Imax:=6;
    for J:=1 to 6 do
     for I:=1 to 6 do
      If I<5 then B[I,J]:=A[I,J] else
      B[I,J]:=A[3,J]+A[4,J];
   end;
  for I:=1 to Imax do
   Begin
    writeln;
    for J:=1 to 6 do
     write(B[I,J]:6);
   end;
 ReadLn;
END.