Ответы
Ответ дал:
0
begin
writeln((4*1)+(2*2),' ',(4*2)+(2*4),' ',(4*3)+(2*6),' ',(4*4)+(2*7));
writeln((1*1)+(2*2),' ',(1*2)+(2*4),' ',(1*3)+(2*6),' ',(1*4)+(2*7));
writeln((3*1)+((-6)*2),' ',(3*2)+((-6)*4),' ',(3*3)+((-6)*6),' ',(3*4)+((-6)*7));
end.
writeln((4*1)+(2*2),' ',(4*2)+(2*4),' ',(4*3)+(2*6),' ',(4*4)+(2*7));
writeln((1*1)+(2*2),' ',(1*2)+(2*4),' ',(1*3)+(2*6),' ',(1*4)+(2*7));
writeln((3*1)+((-6)*2),' ',(3*2)+((-6)*4),' ',(3*3)+((-6)*6),' ',(3*4)+((-6)*7));
end.
Ответ дал:
0
Через const нужно решить
Ответ дал:
0
а где написано в условии задачи, ято нужно решить через const?
Ответ дал:
0
что*.
Ответ дал:
0
Сами виноваты, нужно было в условии задачи это указать.
Ответ дал:
0
извиняюсь за не корректно заданное условие
Ответ дал:
0
const
l=3;
m=4;
n=2;
var
A:array[1..l,1..n] of integer:=((4,2),(1,2),(3,-6));
B:array[1..n,1..m] of integer:=((1,2,3,4),(2,4,6,7));
C:array[1..l,1..m] of integer;
i,j,k:integer;
begin
for i:=1 to l do
for j:=1 to m do
begin
C[i,j]:=0;
for k:=1 to n do
C[i,j]:=C[i,j]+A[i,k]*B[k,j]
end;
for i:=1 to l do
begin
for j:=1 to m do
Write(C[i,j]:4);
Writeln
end
end.
Во вложении дано сравнение результата с онлайн-калькулятором
Приложения:
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад