матрицы

[legita]

дана матрица А=a[i,j], i=1,2,..,4 ; j=1,2,..,4.привести ее к симметрическому виду по правилу: b[i,j]=b[j,i]=(a[i,j]+a[j,i])/2.


как-то так:
progam dm_2;
Type
matrix=array[1..4,1..4] of real;
var
A:matrix;
B:matrix;
i,i:integer;
begin
writeln('vvedite matricy A');
for i:=1 to 4 do
for j:=1 to 4 do read(A[i,j]);
for i:=1 to 4 do
for j:=1 to 4 do
begin
b[j,i]:=(a[i,j]+a[j,i])/2;
b[j,i]:=b[i,j];
end;
write(B[i,j]:3);
writeln;
end.

но как сделать чтобы В[i,j] выводилось в виде матрицы?

[maLoy*508]

как-то так:

progam dm_2;
Type
matrix=array[1..4,1..4] of real;
var
A:matrix;
B:matrix;
i,i:integer;
begin
writeln('vvedite matricy A');
for i:=1 to 4 do
for j:=1 to 4 do read(A[i,j]);

for i:=1 to 4 do
 begin
  for j:=1 to 4 do 
   begin
    b[j,i]:=(a[i,j]+a[j,i])/2;
    b[j,i]:=b[i,j];
   end;
  write(B[i,j]:3);
  writeln;
 end;

end.

[legita]

большое спасибо