Question

Дан двумерный массив целых чисел N*M (задается рандомно). Вычислить сумму всех элементов массива, стоящих в ячейках с четными координатами. Pascal

Answer 1

Const N=10;const M=15;var A: array [1..N] of integer;var B: array [1..M] of integer;i,j: integer;beginj:=0;for i:=1 to N doA[i]:=random(100);for i:=1 to M doB[i]:=random(100);for i:=1 to N doif i mod 2=0 then j:=j+A[i];for i:=1 to M do if i mod 2=0 then j:=j+B[i];writeln('Сумма всех элементов массива, стоящих в ячейках с чётными координатами равна: ', j);end.

Answer 2

Ybdabuf yt gjyzk z xtnj 

Answer 3

Конечно, давайте напишем пример кода на языке Pascal для вычисления суммы всех элементов массива, стоящих в ячейках с четными координатами. Предположим, что у нас есть двумерный массив `arr` размером N*M.

program SumOfEvenCoordinates;

const
  N = 5; // Задайте необходимое значение N
  M = 5; // Задайте необходимое значение M

var
  arr: array[1..N, 1..M] of Integer;
  i, j, sum: Integer;

begin
  // Инициализация массива случайными значениями
  Randomize;
  for i := 1 to N do
    for j := 1 to M do
      arr[i, j] := Random(100); // Генерируем случайные целые числа от 0 до 99

// Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(arr[i, j]:4);
    writeln;
  end;

// Вычисление суммы элементов с четными координатами
  sum := 0;
  for i := 2 to N step 2 do
    for j := 2 to M step 2 do
      sum := sum + arr[i, j];

// Вывод результата
  writeln('Сумма элементов с четными координатами: ', sum);

end.

Этот пример кода создает двумерный массив `arr` размером N*M и заполняет его случайными целыми числами. Затем он вычисляет сумму элементов массива, стоящих в ячейках с четными координатами (четные строки и столбцы). Результат выводится на экран.