число элементов массива,лежащих в промежутке [a,b].

uses crt;
const n=5; m=4;
var t:array[1..n,1..m]of integer;
i,j,s,a,b:integer;
 
begin
 clrscr; 
 randomize;
 for i:=1 to n do
 begin
  for j;=1 to m do
  begin
   t[i,j]:=random(100);
   write(t[i,j]:3);
  end;
 writeln;
 end;
 
 write('A B -> ');
 readln(a,b);
 s:=0;
 for i:=1 to n do for j:=1 to m do if (t[i,j]>=a) and (t[i,j]<=b) then inc(s); 
 writeln(s);
 readln;
end.

uses crt;
var f:array[1..100,1..100] of integer;
    i,j,n,m,k,a,b:integer;
 begin
  ClrScr;
  Writeln('Введит размер матрицы');
   repeat
    Write('n=');
    Readln(n);
    Write('m=');
    Readln(m);
   until (n>1) and (m>1);
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      f[i,j]:=random(10)-2;
      Write(f[i,j]:3);
     end;
    Writeln;
   end;
  Writeln('Введите a и b');
  Readln(a,b);
   for i:=1 to n do
    for j:=1 to m do
      if (f[i,j]>=a) and (f[i,j]<=b) then
       k:=k+1;
   Writeln('Кол-во ',k);
  Readln;
 end.