Помогите доделать задачу по паскаль.

[aleksandr_dss]

Матрица А состоит из 7 строк и 9 столбцов. Найти значение максимального по модулю элемента и разделить на него каждый элемент матрицы.


uses crt;
var a:array[1..7,1..9] of integer;
max,i,j:integer;

begin
clrscr;
for i:=1 to 7 do
begin
for j:=1 to 9 do
begin
a[i,j]:=random(10);
write(a[i,j]:3)
end;
writeln;
end;
writeln('==================');
max:=a[1,1];
for i:=1 to 7 do
for j:=1 to 9 do
if abs(a[i,j])>max then max:=abs(a[i,j]);
???????????????
???????????????
for i:=1 to 7 do
begin
for j:=1 to 9 do
write((a[i,j]/max):5:2);
writeln;
end;
end.

[danekne]

Сообщение от aleksandr_dss

Матрица А состоит из 7 строк и 9 столбцов. Найти значение максимального по модулю элемента и разделить на него каждый элемент матрицы.


uses crt;
var a:array[1..7,1..9] of integer;
max,i,j:integer;

begin
clrscr;
for i:=1 to 7 do
begin
for j:=1 to 9 do
begin
a[i,j]:=random(10);
write(a[i,j]:3)
end;
writeln;
end;
writeln('==================');
max:=a[1,1];
for i:=1 to 7 do
for j:=1 to 9 do
if abs(a[i,j])>max then max:=abs(a[i,j]);
???????????????
???????????????
for i:=1 to 7 do
begin
for j:=1 to 9 do
write((a[i,j]/max):5:2);
writeln;
end;
end.

Гм... И чем вам такой вариант не нравится? На первый взгляд- все правильно

[puporev]

max:=a[1,1]; Вот здесь только поправь max:=abs(a[1,1]);

[Dimak24]

Очень прошу, помогите пожалуйста решить задачку, паскаль почти не знаю, нужно очень срочно..SoS!!

Матрица A состоит из 8 строк и 6 столбцов. Нужно вычислить из всех её строк, начиная со второй, первую строку.
Буду очень благодарен...