var
a,b,c:array [1..3,1..3] of integer; { матрицы }
i,j:integer; { счетчики }
max:integer; { максимальный элемент в строке }
begin
{ Тут вводим матрицы}
for i:=1 to 3 do begin
max:=b[1,i];
for j:=2 to 3 do begin
if b[j,i] > max then
max:= b[j,i];
end;
for j:=1 to 3 do begin
c[j,i]:= a[j,i]*max;
end;
end;
{ Выводим результат }
end.
Матрицы (Pascal)
я не дружу с матрицами в корне ...
вот такая задачка:
Дано две матрицы ... сделать еще одну матрицу в которой каждый элемент первой умножается на наибольший элемент второй матрицы в рядке...
я это так понимаю например:
ну вот типа первая матрица(давухмерный массив)
1 4 2
2 3 5
0 2 0
вторая:
1 2 6
5 4 6
5 5 7
результатная 3я тада наверное такая:
6 24 12
12 18 30
0 14 0
а как приблизительно на tp7 написать?
вот такая задачка:
Дано две матрицы ... сделать еще одну матрицу в которой каждый элемент первой умножается на наибольший элемент второй матрицы в рядке...
я это так понимаю например:
ну вот типа первая матрица(давухмерный массив)
1 4 2
2 3 5
0 2 0
вторая:
1 2 6
5 4 6
5 5 7
результатная 3я тада наверное такая:
6 24 12
12 18 30
0 14 0
а как приблизительно на tp7 написать?