Вычислить сумму элементов матрицы, стоящих на четных местах и произведение элементов, стоящих на нечетных местах

CoolEnemy

Здравствуйте. Помогите пожалайсту, используя двумерные массивы, написать программу решения задачи: Есть массив A размерностью m на n. Вычислить сумму элементов, стоящих на четных местах (i + j четное) и произведение элементов, стоящих на нечетных местах (i + j нечетное). Массив, произведение и сумму вывести на экран.А то что-то я совсем нуб(((up.....
1 ответ

CoolEnemy

Вычислить сумму элементов, стоящих на четных местах
Типа че- то так чтой? Я особо непроверял что он считает, поэтому сам смотри.
const
  n = 6;
  m = 6;
var
  A: array[1..n, 1..m] of integer;
  i, j, sum: integer;
begin
  sum := 0;
  for i := 1 to n do
    for j := 1 to m do
      A[j, i] := j;
 
  for i := 1 to n do
    for j := 1 to m do
      if (j mod 2 = 0) and (i mod 2 = 0) then
        sum := sum + A[j, i];
  ShowMessage(IntToStr(sum));
end;