Program two;
uses crt;
const n=5;
m=7;
var a:array[1..n,1..m] of real;
b:array[1..m,1..n] of real;
c:array[1..n,1..n] of real;{размер полученной матрицы=кол.стр. 1-й*кол.стлбц. 2-oй}
i,j,p:integer;
begin
clrscr;
randomize;
writeln('Матрица А:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=10*random;
write(a[i,j]:4:1);
end;
writeln;
end;
writeln('Матрица B:');
for i:=1 to m do
begin
for j:=1 to n do
begin
b[i,j]:=10*random;
write(b[i,j]:4:1);
end;
writeln;
end;
for p:=1 to n do
for j:=1 to n do
begin
c[p,j]:=0;{сначала элемент i,j=0}
for i:=1 to m do
begin
c[p,j]:=c[p,j]+a[p,i]*b[i,j];
{перемножаем элементы строк 1-ой матрицы на соответствующие элементы соответствующих столбцов 2-ой и суммируем}
end;
end;
writeln('Матрица C=A*B:');
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:7:1);
writeln;
end;
readln
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.