Подсчитать в матрице количество элементов в строке, больше заданной величины (Турбо Паскаль)

[Дмитрий1992]

Здраствуйте ! помогите пожалуйста написать программу ! Буду благодарен !
Даны натуральные числа n ,m и действительная матрица размерами n*m. Определить числа b1...bn, равные соответственно числу элементов в строке , больших заданного числа ?!

[ArtGrek]

я походу совсем давно задачи не читал,
что здес спрашиваеца, объясни

Определить числа b1...bn, равные соответственно числу элементов в строке , больших заданного числа ?!

[Дмитрий1992]

я думаю что если число элементов в строке 3 , то и искать надо b1 , b2 ,b3 , а так как матрица размерами n*m , то требуется найти числа с первого по n-ый член, типо [1...n] , нам препод карточки раздала вот именно с таким заданием , так что вот не знаю что она имела ввиду ...

[rubius2008]

for i:=1 to n do begin
   k:=0; for j:=1 to m do if a[i,j]>Chislo then k:=k+1;
   b[i]:=k; 
end;

[ArtGrek]

uses crt;
var
   n,m: integer;
   i,j: integer;
   mat: array [1..50,1..50] of byte;
begin
     clrscr;
     randomize;
     writeln('N=');
     readln(n);
     writeln('M=');
     readln(m);
     for i:= 1 to n do
         for j:= 1 to m do
             mat[i,j]:=random(100); // заполняем матрицу
     for i:= 1 to n do
     begin
         for j:= 1 to m do
             if mat[i,j]>9 then write(mat[i,j],' ')
                else write(mat[i,j],'  ');   // выводим на екран, цыкл нужен что б выранят колонки матрицы
         writeln;
     end;

     readln;
end.

сможеш обьяснит что надо наити, доделаю, пока у меня насталгия не теряи момент)