Контрольная работа: Использование программирования в математике

begin

for i:=1 to 3 do

begin

if A[i,j]>0 then m:=m+1;

end;

j:=j+2;

end;

for i:=1 to 3 do

begin

for j:=1 to 4 do

begin

if m=0 then B[i,j]:=A[i,j]

else B[i,j]:=A[i,j]/m;

end;

end;

max:=abs(A[1,j]);

for j:=1 to 4 do

begin

if max<abs(A[1,j]) then max:=abs(A[1,j]);

end;

writeln('Matrica A');

for i:=1 to 3 do

begin

writeln('');

for j:=1 to 4 do

begin

write(A[i,j]:5:0);

end;

end;