[AlexSku]

Вот как ваше задание выглядит по-английски:

Код:

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