Найти произведение матрицы размерности n×m на вектор размерности m. Написать на паскале. Элементы вводить не надо

Чтобы найти произведение матрицы размерности n×m на вектор размерности m, мы можем использовать алгоритм умножения матрицы на вектор. В данном случае, результатом будет вектор размерности n.

Вот пример кода на языке Pascal, который демонстрирует, как это сделать, при условии, что элементы матрицы и вектора уже инициализированы.

program MatrixVectorMultiplication;

const
  n = 3;  { число строк матрицы }
  m = 2;  { число столбцов матрицы / размерность вектора }
  
var
  matrix: array[1..n, 1..m] of Integer;  { объявление матрицы }
  vector: array[1..m] of Integer;        { объявление вектора }
  result: array[1..n] of Integer;        { массив для результата }
  i, j: Integer;

begin
  { Пример инициализации матрицы }
  matrix[1, 1] := 1; matrix[1, 2] := 2;
  matrix[2, 1] := 3; matrix[2, 2] := 4;
  matrix[3, 1] := 5; matrix[3, 2] := 6;

  { Пример инициализации вектора }
  vector[1] := 1;
  vector[2] := 2;

  { Умножение матрицы на вектор }
  for i := 1 to n do
  begin
    result[i] := 0;  { инициализация элемента результата }
    for j := 1 to m do
    begin
      result[i] := result[i] + matrix[i, j] * vector[j];
    end;
  end;

  { Вывод результата }
  for i := 1 to n do
  begin
    WriteLn('Элемент результата ', i, ': ', result[i]);
  end;
end.

В этом коде:

1. Мы сначала объявляем размеры матрицы и вектора с помощью констант n и m.
2. Затем создаем массивы для матрицы, вектора и результата.
3. Мы инициализируем матрицу и вектор с фиксированными значениями.
4. Далее, с помощью вложенных циклов, вычисляем произведение матрицы на вектор.
5. Наконец, выводим результат.

Если необходимо, вы можете изменять элементы матрицы и вектора по своему усмотрению. Этот код позволяет понять основные принципы операции умножения матрицы на вектор.