матрица...

[d1mka_]

Надо найти максимальный элемент каждой строки матрицы и разделить на него каждый элемент этой строки.
все что смог

program laba7;
var A:array[1..3,1..3] of integer;
    B:array[1..3,1..3] of real;
    i,j,max:integer;
begin
for i:=1 to 3 do begin
for j:=1 to 3 do begin
a[i,j]:=random(40)+10;
write (a[i,j]:4);end;
writeln;end;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
max:=a[i,1];
if a[i,j]>max
then max:=a[i,j];end;B[i,j]:=(a[i,j]/max);
end;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write (B[i,j]:3);
end;
writeln;
end;
readln;end.

[Utkin]

Разбей ты ее на несколько процедур или пока еще не проходили? Ошибка в том, что при нахождении максимального элемента ты сразу же и делишь, получается на само себя. А надо заводить отдельный цикл и делить построчно. Вся проблема, что задача содержит много мелких и нудных аспектов, отсюда и ошибки. Разбей на процедуры, которые каждый момент решают отдельно и независимо от других. Тогда решение и поиск ошибок значительно упростятся. Разделяй и властвуй.

[d1mka_]

процедуры пока не проходили

[Utkin]

B[i,j]:=(a[i,j]/max);

Эту строку нужно вынести в отдельный цикл. То есть в этом блоке:

for i:=1 to 3 do begin
for j:=1 to 3 do begin
max:=a[i,1];
if a[i,j]>max
then max:=a[i,j];end;B[i,j]:=(a[i,j]/max);
end;

Должно быть их три, а не два. Ну комментарии то должны были проходить. Прокомментируй каждую строчку кода, или он не твой ? Как только распишешь все действия, внимательно прочитай задание и ты поймешь ошибку...

[Utkin]

B[i,j]:=(a[i,j]/max);

Эту строку нужно вынести в отдельный цикл. То есть в этом блоке:

for i:=1 to 3 do begin
for j:=1 to 3 do begin
max:=a[i,1];
if a[i,j]>max
then max:=a[i,j];end;B[i,j]:=(a[i,j]/max);
end;

Должно быть их три, а не два. Ну комментарии то должны были проходить. Прокомментируй каждую строчку кода, или он не твой ? Как только распишешь все действия, внимательно прочитай задание и ты поймешь ошибку...

[Niro]

Раз уж мой тёзка, то держи)

for i:=1 to 3 do
  begin
    max:=A[i,1];
    for j:=1 to 3 do
      if A[i,j]>max then max:=A[i,j];
    for k:=1 to 3 do
      B[i,k]:=A[i,k]/max;
  end;

P.s. код не проверял