Дана матрица размером m на n

[Lencorn]

PASCAL ABC/TURBO
Здравствуйте. Помогите решить задачу. Дано матрицу размером n на m с действительными элементами. построить последовательность b1,b2,....,bn где bk это количество отрицательных элементов k-й строки матрицы.

[Вадим Мошев]

Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.

[newerow1989]

const n=10;
      m=8;
var i,j:integer;
    p:array[1..n,1..m] of real;
    b:array[1..n] of byte;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         p[i,j]:=-10+Random(20)+Random;
         Write(p[i,j]:7:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      b[i]:=0;
      For j:=1 to m do
         If p[i,j]<0 then
            Inc(b[i]);
      Write(b[i]:3,'  ');
   end;
   Writeln;
   Readln;
end.