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

@Fuzick · Регистрация: 15.02.2016

Студворк — интернет-сервис помощи студентам

Составьте программу вычисления произведения тех элементов двухмерного массива А(N,M), что кратны 3 и не кратны
2.
Помогите пожалуйста

@ZX Spectrum-128 · 11.04.2016, 11:26

Pascal

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) ;

@Fuzick · 23.05.2016, 17:56 **[ТС]**

Спасибо, но я не силён в программировании, не могли бы вы прислать полный код программы...

@ZX Spectrum-128 · 23.05.2016, 18:02

Pascal

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.

@Fuzick · 23.05.2016, 18:09 **[ТС]**

Спасибо огромное)

@Fuzick 0 / 0 / 0 Регистрация: 15.02.2016 Сообщений: 21
		1
	Вычисление произведения тех элементов матрицы, которые кратны 3 и не кратны 2 11.04.2016, 11:06. Показов 1982. Ответов 4 Метки нет (Все метки) Составьте программу вычисления произведения тех элементов двухмерного массива А(N,M), что кратны 3 и не кратны 2. Помогите пожалуйста 0

@Fuzick 0 / 0 / 0 Регистрация: 15.02.2016 Сообщений: 21
	23.05.2016, 17:56 [ТС]	3
	Спасибо, но я не силён в программировании, не могли бы вы прислать полный код программы... 0

@Fuzick 0 / 0 / 0 Регистрация: 15.02.2016 Сообщений: 21
	23.05.2016, 18:09 [ТС]	5
	Спасибо огромное) 0

Опции темы

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

Решение