Определить, сколько строк заданной матрицы A(N,M) содержат хотя бы один
элемент из заданного числового диапазона. (PASCAL)
Ответы
Ответ дал:
0
Программа:
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
Program1.pas(15) : Неожиданный символ ' ' (строка x[i,j]:=random(50);)
"Неожиданный символ" вставляет сайт. Вместо этого символа должен быть пробел.
В строке if (x[i,j]>=a)and(a<=b) then f:=true; опечатка. Нужно if (x[i,j]>=a)and(x[i,j]<=b) then f:=true;
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
3 года назад
3 года назад
begin
for j:=1 to m do
begin
x[i,j]:=random(50);
write(x[i,j]:4);
end;
writeln;
end;