В двумерном массиве размерностю nxm (n, m неболее 50), определить колличество строк, все...

Question

В двумерном массиве размерностю nxm (n, m неболее 50), определить колличество строк, все элементы которых не более заданного числа x

Answer 1

Const
n=50;m=50;
var
a:array[1..n,1..m]of integer;
i,j,k,x,h:integer;
begin
readln(x);
    for i:=1 to n do
      begin h:=0;
         writeln;
           for j:=1 to m do
             begin
                a[i,j]:=random(100);
                write(a[i,j]:4);
                   if a[i,j]<=x then  <br>                      h:=h+1
             end;
          if h=m then k:=k+1;
     end;
writeln;
writeln(k);
end.