Ответы на вопрос:
// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin var a: =matrixrandom(3,2,-99,99); writeln('массив а'); for var i: =0 to 2 do begin for var j: =0 to 1 do write(a[i,j]: 4); writeln end; var b: =matrixrandom(3,2,-99,99); writeln('массив b'); for var i: =0 to 2 do begin for var j: =0 to 1 do write(b[i,j]: 4); writeln end; var c: array[0..2,0..1] of real; writeln('результирующий массив'); for var i: =0 to 2 do begin for var j: =0 to 1 do begin c[i,j]: =a[i,j]*b[i,j]/10; write(c[i,j]: 7: 1) end; writeln end end. тестовое решение массив а -91 -93 -62 9 -97 6 массив b -64 18 57 -34 -65 -30 результирующий массив 582.4 -167.4 -353.4 -30.6 630.5 -18.0
Популярно: Информатика
-
Хитрая0Лиса016.02.2022 20:37
-
Genius202011.03.2020 20:16
-
Fhh7227.06.2020 06:58
-
Ленчикбарми07.01.2020 10:14
-
zvezdoska03.02.2020 21:31
-
Ларибум03.04.2022 16:25
-
атайсуйкнбеков29.03.2021 21:11
-
csnoleg09.08.2021 16:33
-
sickman199115.03.2021 12:28
-
PølîñA66619.12.2021 20:22