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