Найти значения выражения c * (5*A+B), где A и И - целочисленные матрицы размером 5 х5, а C - целочисленный вектор размером 5

Const

n = 5;

var

a, b: array[1 ... n, 1 ... n] of integer;

c, r: array[1 ... n] of integer;

i, j: integer;

begin

Randomize;

{ инициализация }

Writeln ('Матрица a') ;

for i : = 1 to n do

begin

for j:=1 to n do

begin

a[i, j]: = Random (51) ;

Write (a[i, j]:3)

end;

Writeln

end;

Writeln ('Матрица b') ;

for i : = 1 to n do

begin

for j:=1 to n do

begin

b[i, j]: = Random (51) ;

Write (b[i, j]:3)

end;

Writeln

end;

Writeln ('Вектор c') ;

for i : = 1 to n do

begin

c[i]: = Random (51) ;

Write (c[i]:3)

end;

Writeln;

{ вычисление и вывод }

Writeln ('Вектор результата') ;

for i:=1 to n do

begin

r[i]:=0;

for j:=1 to n do r[i]:=r[i]+c[j] * (5*a[i, j]+b[i, j]) ;

Write (r[i],' ')

end

end.

Тестовое решение:

Матрица a

44 49 29 34 2

48 1 33 10 24

43 48 29 4 50

2 14 5 25 21

39 31 19 12 23

Матрица b

42 32 26 10 37

35 29 6 49 43

42 44 10 32 11

32 20 3 11 41

22 40 9 35 10

Вектор c

39 9 23 45 44

Вектор результата

26812 26591 29968 15636 22385