0 / 0 / 0
Регистрация: 15.02.2016
Сообщений: 21
1

Вычисление произведения тех элементов матрицы, которые кратны 3 и не кратны 2

11.04.2016, 11:06. Показов 2099. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составьте программу вычисления произведения тех элементов двухмерного массива А(N,M), что кратны 3 и не кратны
2.
Помогите пожалуйста
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2016, 11:06
Ответы с готовыми решениями:

Найти сумму тех элементов массива, которые кратны К
1.В массиве A занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К.

Вычисление тех элементов двумерного массива, что кратны 3 и не кратны 2
составьте программу вычисления тех элементов двумерного массива A(N,M),что кратны 3 и не кратны 2....

Найти произведение тех элементов матрицы, которые кратны L
задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L. мой код : ...

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Здравствуйте, помогите пожалуйста решить задачу, готовую на паскале, но непонятную в самом...

4
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
11.04.2016, 11:26 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
p:=1;
k:=0;
for i:=1 to n do
for j:=1 to m do
 if (a[i,j] mod 3=0) and (a[i,j] mod 2<>0) then
  begin
   p:=p*a[i,j];
   inc(k);
  end;
if k=0 then
 writeln('Нет таких чисел')
else
 writeln(p) ;
0
0 / 0 / 0
Регистрация: 15.02.2016
Сообщений: 21
23.05.2016, 17:56  [ТС] 3
Спасибо, но я не силён в программировании, не могли бы вы прислать полный код программы...
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
23.05.2016, 18:02 4
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
const
  n = 5;
  m = 4;
 
var
  i, j, k: integer;
  p: real;
  a: array [1..n, 1..m] of integer;
 
begin
  p := 1;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(n * m);
      write(a[i, j]:4);
      if (a[i, j] mod 3 = 0) and (a[i, j] mod 2 <> 0) then
      begin
        p := p * a[i, j];
        inc(k);
      end;
    end;  
    writeln; 
  end;    
  if k = 0 then
    writeln('Нет таких чисел')
  else
    writeln(p);
end.
0
0 / 0 / 0
Регистрация: 15.02.2016
Сообщений: 21
23.05.2016, 18:09  [ТС] 5
Спасибо огромное)
0
23.05.2016, 18:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2016, 18:09
Помогаю со студенческими работами здесь

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Помогите пожалуйста с задачей в паскале для курсовой работы : Дан массив A(M). Из элементов массива...

Определите сумму элементов последовательности, которые кратны 2, но не кратны 3
С оператором цикла While 3. Определите сумму элементов последовательности, которые кратны 2, но не...

Найти индексы тех элементов массива, которые кратны 5
Дан массив одномерных чисел. Найти индексы тех элементов которые кратны 5; массив вводится с...

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

Найти количество тех членов последовательности, которые кратны 5 и не кратны 7.
1. Найти количество тех членов последовательности, которые кратны 5 и не кратны 7. 2. Вычислить...

Циклы: получить произведения тех членов последовательности, которые кратны P
Заданы целые числа K,P. ипоследовательность целых чисел c1,c2,..ck.Получить произведения тех членов...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru