Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
КнурМэн
0 / 0 / 0
Регистрация: 28.10.2012
Сообщений: 35
#1

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

10.10.2015, 19:22. Просмотров 853. Ответов 1
Метки нет (Все метки)

Дана матрица X(3,7). Определить для каждого четного столбца: количество ненулевых элементов и их произведение.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2015, 19:22
Ответы с готовыми решениями:

Найти произведение ненулевых элементов матрицы
№1 Дана целочисленная квадратная матрица размером M на N. Найти произведение...

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

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

Матрицы. Найти произведение ненулевых элементов, расположенных ниже главной диагонали
Даны три массива A, B, C. Найти произведение ненулевых элементов, расположенных...

Блок-схема. произведение ненулевых элементов каждого столбца матрицы В(5,12). Полученные значения вывести, указав номера столбцов
var b:array of integer; a:array of integer; i,j:integer; begin ...

1
Puporev
Модератор
54348 / 41941 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
10.10.2015, 19:35 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
31
32
33
const m=3;
      n=7;
var a:array[1..m,1..n] of integer;
    i,j,k,p:integer;
begin
randomize;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-2+random(5); //можете ввести элементы с клавы
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Количество ненулевых и их произведение в четных столбцах');
j:=2;
while(j<=n) do
 begin
  k:=0;
  p:=1;
  for i:=1 to m do
  if a[i,j]<>0 then
   begin
    k:=k+1;
    p:=p*a[i,j];
   end;
  write(j,': k=',k,'  p=');
  if k=0 then writeln(0)
  else writeln(p);
  j:=j+2;
 end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2015, 19:35

переменной X присвоить произведение ненулевых элементов,
Дан массив А(30). Если среди элементов массива есть элемент равный некоторому...

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

Вычислить произведение ненулевых элементов массива (рекурсия/итерация)
Здравствуйте. Как сделать произведение не нулевых элементов, одномерного...


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

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

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