{Programma sareizina divas matricas} uses crt; const rinda = 3; kopa = 2; kolonna = 5; type pirma = array[1..rinda, 1..kopa] of integer; otra = array[1..kopa, 1..kolonna] of integer; rezultats = array[1..rinda, 1..kolonna] of integer; var row,col: integer; a1: pirma; a2: otra; ar: rezultats; procedure matrixmult(var res:rezultats; var a:pirma; b:otra); var i,j,k: integer; begin for i:=1 to rinda do for j:=1 to kolonna do begin res[i,j]:=0; for k:=1 to kopa do res[i,j]:=res[i,j]+ a[i,k]* b[k,j]; end end; procedure readmatrix( var a: pirma; n, m :integer); var i,j : integer; begin repeat write('Ievadi rindu skaitu: ');readln(n) until (n>0) and (n<=rinda); repeat write('Ievadi kolonnu skaitu: ');readln(m) until (m>0) and (m<=kolonna); for i:=1 to n do begin for j:=1 to m do begin writeln('A[',i,j,']= '); readln(a[i,j]) end end end; procedure printmatrix(a: pirma; n,m: integer); var i,j,k: integer; begin for i:=1 to n do begin for j:=1 to m do write(a[i,j]:6); writeln; end end; begin clrscr; writeln('Ievadi 1. matricu');readln(a1,n,m); writeln('Ievadi 2. matricu');readln(a2,n,m); matrixMult(ar,a1,a2); clrscr; writeln('Pirma matrica: ');printmatrix(a1,n,m);writeln; writeln('Otra matrica: ');printmatrix(a2,n,m); readkey; end.