[hsMapk]

Помогите решить следующую задачу(хотяб куском кода).

Дана вещественная квадратная матрица. Построить вектор B, присвоив i-му элементу значение 10, если в строке с номером i матрицы число положительных элементов не меньше числа отрицательных элементов и значение 1 в противном случае.

[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

[hsMapk]

что значат вот эти две строки:

Код:

 v:= M[i, все];
  if CountPlus(v) >= CountMinus(v) then

что значит ВСЕ?

[Alegun]

Сообщение от hsMapk

...что значит ВСЕ?

Похоже что помимо i нужно прокрутить циклом и ВСЕ поддиапазонные разряды двумерного массива for j := 1 to N do.., j = все

[hsMapk]

то есть for j:=0 to число?

[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;

[hsMapk]

компилятор ругается на CountPlus. что это?

[Alegun]

Возможно надо так

Код:

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