Приложение:
uses crt; const n=5; {размеры матрицы} m=6; type Tmatr=array[1..n,1..m] of real;{тип матрицы} procedure Vvod(var mt:Tmatr);{присвоение значений элементам матрицы} var i,j:byte; begin for i:=1 to n do for j:=1 to m do mt[i,j]:=10*random;{псевдослучайные числа в диапазоне(0,10)} end; procedure Vyvod(var mt:Tmatr;s:string);{вывод матриц на экран} var i,j:byte; begin writeln('Matrica ',s,':'); for i:=1 to n do begin for j:=1 to m do write(mt[i,j]:6:1); writeln; end; end; procedure UmMatCh(var mt:Tmatr; b:integer);{умножение матрицы на число} var i,j:byte; begin for i:=1 to n do for j:=1 to m do mt[i,j]:=mt[i,j]*b;{все элементы умножаются на число} end; procedure SumMatr(m1:Tmatr;var mt:Tmatr);{сумма матриц} var i,j:byte; begin for i:=1 to n do for j:=1 to m do mt[i,j]:=mt[i,j]+m1[i,j];{соответствующие элементы складываются} end; var a,b,c:Tmatr;{раздел переменных – 3 маирицы} begin {основная программа, по очереди вызываются нужные процедуры} clrscr; randomize; Vvod(b); Vyvod(b,'B'); UmMatCh(b,25); Vyvod(b,'25*B'); readln; Vvod(c); Vyvod(c,'C'); UmMatCh(c,8); Vyvod(c,'8*C'); readln; Vvod(a); Vyvod(a,'A'); UmMatCh(a,9); Vyvod(a,'9*A'); readln; SumMatr(c,b); SumMatr(a,b); Vyvod(b,'25B+8C+9A'); readln end.