Ответы на вопрос:
// 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
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
seregaushakov1318.08.2022 07:18
-
fariza3414.03.2021 08:59
-
Nikita924425.12.2020 00:15
-
RыBкA10902.06.2023 05:15
-
супербятя06.11.2022 04:59
-
kiryazhigulski20.07.2022 15:32
-
77777777022.02.2020 02:12
-
olgadyra12.12.2020 08:06
-
diana04s06.11.2021 12:40
-
ива35724.06.2020 18:34
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.