神马品牌网wow附魔奇异之尘:Pascal数组题,谁来解答!!
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 07:43:37
题目是:有一个5*5的数字矩形,这个矩形的对角线上的数分别除以这一行的每一个数,并输出.
要把除出的结果当作对角线上的数输出哦
注意:是除以每一个数~~~谢谢!
要把除出的结果当作对角线上的数输出哦
注意:是除以每一个数~~~谢谢!
??很模糊的描述
Program ex1;
Const n=5;
Var num:array [1..n,1..n]of longint;
i,j:longint;
Begin
for i:=1 to n do
for j:=1 to n do
read(num[i,j]);
for i:=1 to n do begin
num[i,i]:=1;{注意到num[i,i]也要除num[i,i],所以直接设成1}
for j:=1 to n do if i<>j then num[i,i]:=num[i,i]/num[i,j];{num[i,i]对角线，num[i,1]第一个数}
writeln(num[i,i]);
end;
End.
没注意.