Программа:
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
for j:=1 to m do
x[i,j]:=random(50);
write(x[i,j]:4);
end;
writeln;
write('a, b: ');
readln(a,b);
k:=0;
f:=false;
if (x[i,j]>=a)and(a<=b) then f:=true;
if f then k:=k+1;
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
Программа:
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