Определить, сколько строк заданной матрицы a(n,m) содержат хотя бы один
элемент из заданного числового диапазона. (pascal)

Программа:

const n=6; m=5;

var

x:array[1..n,1..m] of integer;

i,j,a,b,k:integer;

f:boolean;

begin

Randomize;

writeln('Исходный массив:');

for i:=1 to n do

begin

for j:=1 to m do

 begin

  x[i,j]:=random(50);

  write(x[i,j]:4);

 end;

 writeln;

end;

write('a, b: ');

readln(a,b);

k:=0;

for i:=1 to n do

begin

f:=false;

for j:=1 to m do

 if (x[i,j]>=a)and(a<=b) then f:=true;

if f then k:=k+1;

end;

writeln('k = ',k);

end.

Пример:

Исходный массив:

  2  42  11  34  11

 26  46  37  21  12

  7  18   8  11  29

 25  38   4  18  14

  8  13   8  46  41

 22  29   3  47  46

a, b: 40 50

k = 4