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

Есть ответ
18.12.2022
291

Ответ


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. 

 

 

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.