pascal 已知一个6*6的矩阵,把矩阵两条对角线上的元素加上10,然后输出这个新矩阵.

网友回答

program juzheng;
var a:array[1..6,1..6]of integer;x:string;f:text;
b,c:integer;
beginwriteln('shurudizhi,eg.a.txt');
readln(x);
assign(f,x);
reset(f);
for b:=1 to 6 do
for c:=1 to 6 do
read(f,a[b,c]);
close(f);
writeln('shurudizhi,eg.a.txt');
readln(x);
assign(f,x);
rewrite(f);
for b:=1 to 6 do
begina[b,b]:=a[b,b]+10;
c:=7-b;
a[b,c]:=a[b,c]+10;
end;for b:=1 to 6 do
beginfor c:=1 to 6 do
write(f,a[b,c]);
writeln(f);
end;close(f);
end.