Даны две действительные квадратные матрицы порядка n. Получить новую матрицу:

[Хутор]

Даны две действительные квадратные матрицы порядка n. Получить новую матрицу:умножением элементов каждой строки первой матрицы на наибольшее из значений элементов соответствующей строки второй матрицы. ПРИВЕТ люди добрые выручите прошу очень нужно пожалуйста

[andrewpalkin]

А ты не думал , что ты должен и сам начать писать ? Не мог бы ты показать свои наработки ? Вот только не надо говорить , что ты болел , когда проходили эту тему и наработок нет

[Diana :-p]

Двумерный массив проходила самостоятельно. Умножает не правильно. точнее сказать правильно умножает только первый элемент, а остальное только на одно число. как задать так чтоб первую строчку массива умножал правильно на первый элемент строки Мемо1

procedure TForm1.Button2Click(Sender: TObject);
var a: array [1..100,1..100] of integer;
c: array [1..100,1..100] of integer;
i, j, n, max,i1,j1,new,k: integer;
begin
randomize;
n:=strtoint(edit1.text);
// memo1.Clear;
for i:=0 to n-1 do begin
for j:=0 to n-1 do begin
a[i,j]:=random(20)-10;
c[i,j]:=random(20)-10;
// stringgrid1.cells[i,j]:=inttostr(a[i,j]);
end;
end;


max:=c[1,1];
for i:=1 to n do begin
for j:=1 to n do begin
if max<c[i,j] then max:=c[i,j];
end; memo1.Lines.Add(inttostr(max));
max:=0; end;

k:=0;
for i1:=0 to n-1 do begin
for j1:=0 to n-1 do begin
new:=strtoint(memo1.lines.strings[0]);
a[i1,j1]:=new*a[i1,j1];
// stringgrid1.cells[i1,j1]:=inttostr(a[i1,j1]);
k:=1;
end;
end;

end;