Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
BFG
0 / 0 / 0
Регистрация: 14.09.2012
Сообщений: 8
1

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

14.09.2012, 21:24. Просмотров 999. Ответов 1
Метки нет (Все метки)

3)Заполнить двумерный числовой массив В[5, 5] целыми числами. Найти произведение ненулевых элементов каждого столбца массива, ответы вывести с указанием номера столбца. Указать номер столбца с наибольшим произведением.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.09.2012, 21:24
Ответы с готовыми решениями:

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

Разработать алгоритм, определяющий произведение ненулевых элементов каждого столбца матрицы
Разработать алгоритм, определяющий произведение ненулевых элементов каждого...

Двумерный массив. Найти произведение всех элементов каждого столбца массива
Дан двухмерный массив размером M x N. Найти произведение всех элементов каждого...

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

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

1
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
14.09.2012, 22:19 2
Лучший ответ Сообщение было отмечено BFG как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
var
  A :array [1..5, 1..5] of integer;
  i, j, p, max, jmax : integer;
begin
Randomize;
for i := 1 to 5 do
 begin
 for j := 1 to 5 do
  begin
  A[i, j] := random(20) - 10;
  Write(A[i, j]:5, ' ');
  end;
 Writeln;
 end;
max := -32000; jmax := 0;
for j := 1 to 5 do
 begin
 p := 1;
 for i := 1 to 5 do
   if A[i, j] <> 0 then p := p*A[i, j];
 Writeln(j, ' - ', p);
 if max < p then 
  begin
  max := p;
  jmax := j;
  end;
 end; 
Writeln('Максимальное произведение в ', jmax, ' стобце'); 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.09.2012, 22:19

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

Найти сумму элементов каждой строки и произведение элементов каждого столбца матрицы
Кто может в Паскале не силён, если можно коментарии что бы разобраться что к...

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


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

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

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