Заполнить матрицу 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.       
Не нашли ответ?
Ответить на вопрос
Похожие вопросы