Помогите пожалуйста. Дан двухмерный массив целых чисел определить: 1)Есть ли в нем строка состоящая только из нечетных элементов 2)Есть ли в нем строка состоящих только из элементов кратных числу а или б 3)Есть ли в нем строка ...
Помогите пожалуйста.
Дан двухмерный массив целых чисел определить:
1)Есть ли в нем строка состоящая только из нечетных элементов
2)Есть ли в нем строка состоящих только из элементов кратных числу а или б
3)Есть ли в нем строка состоящая только из отрицательных чисел
Прошу помогите. Какие данные будут использованы в массиве не важно(они просто не даны)
Гость
Ответ(ы) на вопрос:
ГостьЯзык программирования Паскаль
m - количество ячеек в строке
n - кол-во ячеек в столбце
Var q:Array[1..m]
w:array[1..n] of integer;
v,i :integer;
Read(a);
Read(b);
begin
1)v:=0
for i:=1 to n do
for i:= 1 to m do
begin
if q[i] mod 2 = 0 then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из нечетных элементов');
end.
2)v:=0
for i:=1 to n do
for i:= 1 to m do
begin
if (q[i] mod a = 0) or (q[i] mod b = 0) then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из элементов кратных числу a или b');
end.
3)
v:=0
for i:=1 to n do
for i:= 1 to m do
begin
if q[i] < 0 then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из отрицательных чисел');
end.
Если что-то не понятно, то постараюсь объяснить.
Не нашли ответ?
Похожие вопросы