Вопрос пользователя:
Заполнить матрицу 3х3 случайными числами из интервала [0..10] и вторую матрицу 3х3 из интервала [0..5],перемножить таблицы
Илюха отвечает:
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.