Помогите пожалуйста.Дан двухмерный массив целых чисел найти:1)Есть ли в нем строчка
Помогите пожалуйста.
Дан двухмерный массив целых чисел определить:
1)Есть ли в нем строчка состоящая только из нечетных элементов
2)Есть ли в нем строчка состоящих только из элементов кратных числу а или б
3)Есть ли в нем строчка состоящая только из отрицательных чисел
Прошу помогите. Какие данные будут применены в массиве не важно(они просто не даны)
Евгений Тайнис
Напишите текст программки
1 ответ
Ромка Чавпецов
Язык программирования Паскаль
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] lt; 0 then
v:=v+1;
end;
if v = m then
writeln('Есть строчка состоящая только из отрицательных чисел');
end.
Если что-то не понятно, то постараюсь разъяснить.
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] lt; 0 then
v:=v+1;
end;
if v = m then
writeln('Есть строчка состоящая только из отрицательных чисел');
end.
Если что-то не понятно, то постараюсь разъяснить.
Альбина Курач
мне все понятно спасибо
Jaroslava Olderogi
чел а в делфи запилить сможешь?
Толя Трайнев
В делфи не смогу. Желая , слышал что писать на делфи можно так же как и на паскале, но опыта нет.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов