Var a:array[1..5,1..10] of integer; b:array[1..5,1..10] of real; i,max:integer; begin max:=0; for i:=1 to 5 do for j:=1 to 10 do begin read(a[i,j]); if abs(a[i])> max then max:=a[i]; end; for i:=1 to 5 do for j:=1 to 10 do begin b[i,j]:=a[i,j]/max write(a[i,j]); end; end.