Задание:
Заполнить матрицу 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; beginRandomize; for i: =1 to 3 do beginfor q: =1 to 3 do begina[i,q]: =Random (10) end end; for i: =1 to 3 do beginfor q: =1 to 3 do beginb[i,q]: =Random (5); end end; for i: =1 to 3 do beginwriteln; for q: =1 to 3 do beginc[i,q]: =a[i,q]*b[i,q]; write (c[i,q]) end end; readlnend.
Знаете другой ответ?