Как найти произведение четных элементов двумерного массива - Сайт, где вы сможете решить свои вопросы

В предыдущем сообщение совершенно некорректно выразил своим мысли, прошу прощения.

Условие такое. Найти произведение четных элементов в массиве размерностью n×m. Программа получает на вход n и m – размерность массива, n строк, каждая из которых содержит m элементов.

И вот тут не понятно, то есть матрица все же квадратная? Тогда у нас при вводе n = 3, m будет являться хранением последовательности элементов для заполнения матрицы. А если m выступает все же, как столбцы, то ввод должен осуществляться как n=3. а m = 2, например. Тогда нужно заводить дополнительную переменную опять же для хранения последовательности?

Ну и ввод. Как лучше и проще вводить элементы для заполнения матрицы?

Я не до конца понимаю условие задания и как это можно реализовать, причем желательно без использования сложных функций и методов. Уровень чайника. Вооот. соответственно у меня возникают вопросы.

Добавлено через 2 часа 35 минут
Дополняю скринштом. Вот такая вот ошибка вылезает.

Источник

Формулировка задачи:

В основной программе сформировать двумерные массивы a,b и с различных размерностей, с помощью подпрограммы найти в каждом получившемся массиве произведение чётных элементов.

Код к задаче: «Сформировать двумерные массивы и найти произведение чётных элементов»

textual

Листинг программы

type
  matr=array [,] of integer;
var
  a,b,c:matr;
  n,m:integer;
  p:real;
 
procedure creatematrix(var x:matr; n,m:integer);
var
  i,j:integer;
begin
  x := new integer [n,m];
  for i:=0 to n-1 do
    begin
      for j:=0 to m-1 do
        begin
          x[i,j]:=random(10) - (10) div 2;
          write(x[i,j]:4);
        end;
      writeln;
    end;
end;

Источник

1 ответ:

0

0

Вот:
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<span>const
n=5;
var
a:array[1..n,1..n] of integer;
i,j,s:integer;
begin
s:=0;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
if (i+j) mod 3=0 then
s:=s+a[i,j];
end;
writeln;
end;
writeln(‘S=’,s);
end.</span></span>

Ответы и объяснения 1

zonedenc429

Вот:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const n=5; var a:array[1..n,1..n] of integer; i,j,s:integer; begin s:=0; randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:4); if (i+j) mod 3=0 then s:=s+a[i,j]; end; writeln; end; writeln(‘S=’,s); end.

Знаете ответ? Поделитесь им!

Гость

Гость ?

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

Отвечать достоверно на те вопросы, на которые знаете
правильный ответ;
Писать подробно, чтобы ответ был исчерпывающий и не
побуждал на дополнительные вопросы к нему;
Писать без грамматических, орфографических и
пунктуационных ошибок.

Этого делать не стоит:

Копировать ответы со сторонних ресурсов. Хорошо ценятся
уникальные и личные объяснения;
Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не
знаю» и так далее;
Использовать мат – это неуважительно по отношению к
пользователям;
Писать в ВЕРХНЕМ РЕГИСТРЕ.

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует?
Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие
вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи –
смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

Источник