Решите : заданы две целочисленные матрицы a и b. матрица a состоит из n строк и m столбцов, матрица b состоит из m строк и p столбцов. требуется вычислить произведение данных матриц a*b.язык паскаль

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 type   matrix=array[,] of integer; procedure matprint(a: matrix; w: integer); begin   for var i: =0 to length(a,0)-1 do begin       for var j: =0 to length(a,1)-1 do write(a[i,j]: w);       writeln       end end; procedure matprod(a,b,c: matrix); begin   for var i: =0 to length(a,0)-1 do       for var j: =0 to length(b,1)-1 do begin           var s: =0;           for var k: =0 to length(a,1)-1 do s+=a[i,k]*b[k,j];           c[i,j]: =s           end end; begin   var a,b,c: matrix;   var m,n,p: integer;   write('число строк матрицы а: '); read(n);   write('число столбцов матрицы а и строк матрицы в: '); read(m);   write('число столбцов матрицы в: '); read(p);   a: =matrixrandom(n,m,-50,50);   writeln('матрица а'); matprint(a,4);   b: =matrixrandom(m,p,-50,50);   writeln('матрица b'); matprint(b,4);   setlength(c,n,p);   writeln('матрица c');   matprod(a,b,c);   matprint(c,7) end. тестовое решение: число строк матрицы а: 4 число столбцов матрицы а и строк матрицы в: 8 число столбцов матрицы в: 7 матрица а   33 -30  20    7    1    5  10 -47   -6  -1 -22    6 -33  41    4  -1   -10 -45 -16    6 -13    9    1  37     5  37  15 -48  42 -19    1  26 матрица b   -19  42 -14 -36  38 -18 -41   -24 -20  26 -50 -36  -5 -32   -1    5 -43  15  11  49    0   -44 -35 -27  20  33 -49  14   40    7 -38 -37  48    2 -26   -24    5 -11  12 -43  47 -42   -24  11    8 -13  -9 -13 -12   -41  46 -24  20    3 -25 -25 матрица c     1372    -179  -1176    -295    2387    1475      524   -2463    -580    1701    1697  -3622      575    -525   -1255    1857    -989    3806      353  -1214      957     2160    2631    -460  -4040      341    1340  -3017

Вес одной точки на экране равен глубине цвета, т.е. сколько бит информации несет эта точка. найдем глубину цвета i по формуле: 2^i = k, где k = 256 цветов. отсюда: 2^8 = 256 => глубина равна 8 => вес одной точки равен 8 бит