Заполнить матрицу 3х3 случайными числами из интервала [0..10] и вторую матрицу 3х3 из интервала [0..5],перемножить таблицы
10-11 класс
|
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.
Другие вопросы из категории
программы ?
for n:=1 to 10 do
A[n]:=n-8;
for m:=1 to 10 do
B[m]:=A[m]+m;
Введите значения A[2] и B[9] через запятую и пробел. (Например: 2, 5)
Читайте также
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
двумерном массиве размерности 3х3. Заполнить массив целыми случайными числами из
диапазона от 0 до 15.
Составьте программу вычисления в массиве А(10), заполненном случайными числами из интервала [-1;6], суммы всех элементов массива.