Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
andko
0 / 0 / 0
Регистрация: 18.04.2015
Сообщений: 28
1

Найти произведение ненулевых элементов двухмерного числового массива и определить его знак

18.04.2015, 14:38. Просмотров 582. Ответов 6
Метки нет (Все метки)

Найти произведение ненулевых элементов двухмерного числового массива Х и определить его знак. Вывести на экран массив и ответ на вопрос задачи.

Помогите пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2015, 14:38
Ответы с готовыми решениями:

Найти произведение ненулевых элементов данного одномерного числового массива
Найти произведение ненулевых элементов данного одномерного числового массива.

Найти произведение ненулевых элементов массива и разделить его на количество элементов массива
Задание 1. Найдите произведение ненулевых элементов массива и разделите это...

для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов
Для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых...

Найти произведение ненулевых элементов массива
В массиве Х(N) найти произведение ненулевых элементов, а также количество...

Среди элементов нечетных строк массива найти произведение ненулевых элементов
Дан массив X(N,M). Среди элементов нечетных строк массива найти произведение...

6
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,086
18.04.2015, 15:16 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
...
p:=1;
for i:=1 to n do
 for j:=1  to m do
  if a[i,j]<>0 then
   p:=p*a[i,j];
if p>0 then
 writeln('Положительное')
else
 if p<0 then
 writeln('Отрицательное');
...
0
andko
0 / 0 / 0
Регистрация: 18.04.2015
Сообщений: 28
19.04.2015, 07:56  [ТС] 3
ZX Spectrum-128, спасибо за ответ, только маленькая просьба, что находится в разделе описания программы. Я не программист, и вряд ли им буду, а работу сдать нужно.
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,086
19.04.2015, 09:18 4
Pascal
1
2
3
4
var
 n,m,i,j:integer;
 p:real;
 a:array[1..100,1..100] of real;
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,086
19.04.2015, 09:20 5
Найти произведение ненулевых элементов двухмерного числового массива и определить его знак
0
andko
0 / 0 / 0
Регистрация: 18.04.2015
Сообщений: 28
19.04.2015, 11:11  [ТС] 6
Как меняются значения m и n?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,086
19.04.2015, 11:49 7
Вводятся с клавиатуры:
Pascal
1
readln(n,m);
0
19.04.2015, 11:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2015, 11:49

Найти произведение ненулевых элементов из каждой строки массива А.
1)Найти произведение ненулевых элементов из каждой строки массива А. Определить...

Найти произведение ненулевых элементов каждого столбца массива
3)Заполнить двумерный числовой массив В целыми числами. Найти произведение...

Определить произведение ненулевых элементов всех нечетных строк массива. Turbo Pascal
Определить произведение ненулевых элементов всех нечетных строк массива.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru