unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Matrix: array [0..4, 0..4] of integer;  //  Массив А(5, 5)
  Vector: array [0..4] of integer;  //  Массив В(вектор(5))
  Element: integer;  //  Новый элемент полученного массива

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  For i:=0 to 4 do
    For j:=0 to 4 do
    Matrix[i, j]:= StrToInt(StringGrid1.Cells[i, j]);  //  Получение матрицы из сетки
  For i:=0 to 4 do
    Vector[i]:= StrToInt(StringGrid2.Cells[i, 0]);  //  Получение вектора из сетки
  for i:=0 to 4 do  //  Умножение массивов A*B
    begin
      Element:= 0;
      for j:=0 to 4 do
        Element:= Element + (Matrix[i, j]) * (Vector[j]);  //  Получение нового элемента массива C
      StringGrid3.Cells[i, 0]:= IntToStr(Element);  //  Вывод полученного элемента массива в сетку 
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
begin
  Randomize;  //  Инициализация генератора случайных чисел
  For i:=0 to 4 do
    For j:=0 to 4 do
      StringGrid1.Cells[i, j]:= IntToStr(Random(11));  //  Заполнение первой сетки случайными числами в диапазоне (0..10) 
  For i:=0 to 4 do
    StringGrid2.Cells[i, 0]:= IntToStr(Random(11));  //  Заполнение второй сетки случайными числами в диапазоне (0..10) 
end;

end.