[Alegun]

Код:

 for j:= 1 to N do
  for i:= 1 to N do
begin
  v:= M[i, j];
  if CountPlus(v) >= CountMinus(v) then
    B[i]:= 10
  else
    B[i]:= 1;
end;