pascal 已知一个6*6的矩阵,把矩阵两条对角线上的元素加上10,然后输出这个新矩阵.
答案:2 悬赏:50 手机版
解决时间 2021-01-26 16:37
- 提问者网友：niaiwoma
- 2021-01-26 03:40
pascal 已知一个6*6的矩阵,把矩阵两条对角线上的元素加上10,然后输出这个新矩阵.
最佳答案
- 五星知识达人网友：鸽屿
- 2021-01-26 04:14
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 dofor c:=1 to 6 doread(f,a[b,c]);close(f);writeln('shurudizhi,eg.a.txt');readln(x);assign(f,x);rewrite(f);for b:=1 to 6 dobegina[b,b]:=a[b,b]+10;c:=7-b;a[b,c]:=a[b,c]+10;end;for b:=1 to 6 dobeginfor c:=1 to 6 dowrite(f,a[b,c]);writeln(f);end;close(f);end.
全部回答
- 1楼网友：孤老序
- 2021-01-26 05:46
就是这个解释
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯