Question

Нужна срочно помощь по Паскаль Задана матрица A(K,L) найти сумму элементов в каждом ряду с парным индексом и создать с них одномерный массив

Answer 1

begin

 var (k, l) := ReadInteger2();

 var a := MatrRandom(k, l, 0, 9); a.Println;

 var b := new integer[k];

 

 for var i := 0 to k - 1 do

   b[i] := a.Row(i).Where((x, i)-> (i + 1).IsEven).Sum;

 

 Println;

 b.Println;

end.

Answer 2

Хорошо, я помогу вам решить эту задачу на языке программирования Паскаль. Для создания одномерного массива с суммами элементов в каждом ряду с парными индексами, вам понадобится выполнить следующие шаги:

1. Создайте матрицу A(K, L) и заполните ее данными.
2. Вычислите сумму элементов в каждом ряду с парными индексами.
3. Создайте одномерный массив для хранения результатов.

Ниже приведен пример кода на Паскале, который решает данную задачу:

pascalCopy code
program SumOfEvenIndexRows;

const
  MAX_K = 100; // Максимальное значение K (количество строк)
  MAX_L = 100; // Максимальное значение L (количество столбцов)

type
  Matrix = array[1..MAX_K, 1..MAX_L] of Integer;
  ArrayOfSums = array[1..MAX_K] of Integer;

procedure ReadMatrix(var A: Matrix; K, L: Integer);
var
  i, j: Integer;
begin
  for i := 1 to K do
  begin
    for j := 1 to L do
    begin
      Write('Введите элемент A[', i, ',', j, ']: ');
      Readln(A[i, j]);
    end;
  end;
end;

procedure CalculateSums(var A: Matrix; K, L: Integer; var sums: ArrayOfSums);
var
  i, j: Integer;
begin
  for i := 1 to K do
  begin
    sums[i] := 0;
    for j := 1 to L do
    begin
      if j mod 2 = 0 then // проверяем, что индекс столбца является парным
        sums[i] := sums[i] + A[i, j];
    end;
  end;
end;

procedure PrintArray(arr: ArrayOfSums; K: Integer);
var
  i: Integer;
begin
  for i := 1 to K do
    Write(arr[i], ' ');
  Writeln;
end;

var
  A: Matrix;
  K, L: Integer;
  sums: ArrayOfSums;

begin
  Write('Введите количество строк (K): ');
  Readln(K);
  
  Write('Введите количество столбцов (L): ');
  Readln(L);

  if (K <= 0) or (L <= 0) or (K > MAX_K) or (L > MAX_L) then
  begin
    Writeln('Ошибка: недопустимый размер матрицы.');
    Exit;
  end;

  ReadMatrix(A, K, L);
  CalculateSums(A, K, L, sums);
  Writeln('Суммы элементов в каждом ряду с парным индексом:');
  PrintArray(sums, K);
end.

Вы можете скопировать данный код в среду программирования Паскаль и запустить для решения вашей задачи. Пользовательский ввод позволит вам ввести значения элементов матрицы A(K, L), а затем программа выведет одномерный массив с суммами элементов в каждом ряду с парным индексом.