Question

Заполнить матрицу 3х3 случайными числами из интервала [0..10] и вторую матрицу 3х3 из интервала [0..5],перемножить таблицы

Answer 1

program dl9_Alina73;
var a:array [1..3,1..3] of real;

b:array [1..3,1..3] of real; 

c:array [1..3,1..3] of real; 

i,q:integer;

begin

Randomize;
 for i:=1 to 3 do begin

for q:=1 to 3 do begin

a[i,q]:=Random(10)

end end; 

 for i:=1 to 3 do begin

for q:=1 to 3 do begin

b[i,q]:=Random(5);

end end; 

 for i:=1 to 3 do begin

writeln; 

for q:=1 to 3 do begin

c[i,q]:=a[i,q]*b[i,q];

write (c[i,q]) 

 end end;

readln

end.