Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3

@Tatyana123 · Регистрация: 26.11.2012

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

Ввести двумерный массив А_3×4 . Определить произведение элемен-тов, которые при делении на 2 дают такой же остаток как и при делении на 3.

@КонецСвета · 29.11.2012, 21:24

Pascal

  uses crt;
  const n=3; m=4;
  var a: array [1..n,1..m] of integer;
      i,j,k: byte;
      p: integer;
  begin
  writeln('Введите матрицу 3х4 построчно');
  p:=1;
  for i:=1 to n do
      begin
      for j:=1 to m do
          begin
          read(a[i,j]);
          if a[i,j] mod 2=a[i,j] mod 3 then
             begin
             inc(k);
             p:=p*a[i,j];
             end;
          end;
      end;
  if k=0 then writeln('Нет таких элементов') else writeln('Произведение заданных элементов ',p);
  end.

@Tatyana123 0 / 0 / 0 Регистрация: 26.11.2012 Сообщений: 41
		1
	Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3 26.11.2012, 19:51. Показов 2037. Ответов 1 Метки нет (Все метки) Ввести двумерный массив А_3×4 . Определить произведение элемен-тов, которые при делении на 2 дают такой же остаток как и при делении на 3. 0

	29.11.2012, 21:24

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3

Решение