用pascal编写数组分量数据移动的程序
读入100个数组分量的数组,把第1个分量的值赋值给第2个,第2个的给第3个,最后,第100个的给第1个,输出新赋值后的数组。
这个题还就我会来回答你,数据什么类型没说,当实型来做: type x=array[1..100]of real; var i,j:integer; y:x; begin for i:=1 to 100 do read(x[i]); j:=x[100]; for i:=99 downto 1 do x[i+1]:=x[i]; x[1]:=j; for i:=1 to 100 do write(x[i]); end.
答:详情>>
答:详情>>