Question

Pascal. В двумерном массиве действительных чисел найти сумму четных элементов кратных 4.

Answer 1

program raf105;

var a:array[1..3,1..3] of integer;

i,j,sum:integer;

begin

writeln('Вводите 9 чисел по очереди:');

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j] mod 4)=0

     then sum:= sum+a[i,j]

 end;

writeln('Сумма чётных элементов кратных четырём: ',sum);

end.

Язык программирования PascalABC

Answer 2

Для нахождения суммы четных элементов, кратных 4, в двумерном массиве, вы можете использовать следующий алгоритм:

1. Создайте двумерный массив с действительными числами.
2. Пройдитесь по всем элементам массива.
3. Если элемент четный и кратный 4, добавьте его значение к переменной, которая будет хранить сумму.
4. Верните значение суммы.

Вот пример кода на языке Pascal:

pascalCopy code
program SumEvenMultiplesOfFour;

const
  Rows = 3; // Замените на нужное количество строк
  Cols = 3; // Замените на нужное количество столбцов

type
  Matrix = array[1..Rows, 1..Cols] of Real;

function SumEvenMultiplesOfFourInMatrix(const arr: Matrix): Real;
var
  i, j: Integer;
  sum: Real;
begin
  sum := 0;

  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
    begin
      if (arr[i, j] mod 2 = 0) and (arr[i, j] mod 4 = 0) then
        sum := sum + arr[i, j];
    end;
  end;

  Result := sum;
end;

var
  myMatrix: Matrix;
  resultSum: Real;
  i, j: Integer;
begin
  // Инициализируем двумерный массив для примера
  // Замените эти значения на свои или введите с клавиатуры
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
    begin
      // Пример инициализации массива случайными значениями от 1 до 10
      myMatrix[i, j] := Random(10) + 1;
    end;
  end;

  // Выведем исходный массив для наглядности
  writeln('Исходный массив:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
    begin
      write(myMatrix[i, j]:8:2, ' ');
    end;
    writeln;
  end;

  resultSum := SumEvenMultiplesOfFourInMatrix(myMatrix);

  writeln('Сумма четных элементов, кратных 4: ', resultSum:8:2);
end.

Обратите внимание, что в данном примере размеры матрицы фиксированы и установлены в Rows и Cols. Вы можете изменить их на нужные значения. Также ввод значений элементов матрицы можно изменить на свой усмотрение, например, вводить значения с клавиатуры или использовать другой способ инициализации массива.