<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
function ReadMatrix(c:char; m,n:integer):array[,] of real; begin Writeln('Вводите элементы матрицы ',c,' построчно'); Result:=ReadMatrReal(m,n); end;
function MatProd(a,b:array[,] of real):array[,] of real; begin var (m,n):=(a.RowCount,a.ColCount); Result:=new real[m,n]; for var i:=0 to m-1 do for var j:=0 to n-1 do Result[i,j]:=a[i,j]*b[i,j] end;
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрицах:'); var A:=ReadMatrix('A',m,n); var B:=ReadMatrix('B',m,n); var C:=ReadMatrix('C',m,n); var AB:=MatProd(A,B); Writeln('*** A*B ***'); AB.Print(8,4); Writeln(8*n*'-'); var AC:=MatProd(A,C); Writeln('*** A*C ***'); AC.Print(8,4); Writeln(8*n*'-'); var BC:=MatProd(B,C); Writeln('*** B*C ***'); BC.Print(8,4) end.
Простые: Вода кипит при 100<span>°С, Солнце - сравнительно не большая звезда, Свинец тяжелее железа, Юноша окончил среднюю школу, Юноша получает аттестат зрелости.</span>