pascal问题，给一维数组输入M个整数,假设M=6,数组元素分别为 7 4 8 9 1 5 程序意思要详细
a:array[1..1000] of integer;
i,n,j:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
a[i+n]:=a[i];
end;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n-1 do
begin
for j:=1 to n do
write(a[i+j],' ');
end;
end.
求解读
最新回答
南故归
2024-10-23 03:33:42
读入n个数a[1]~a[n]，同时保存一份一样的到a[1+n]~a[n+n];执行完成后数组内容像这样：
7 4 8 9 1 5 7 4 8 9 1 5
for i:=1 to n dowrite(a[i],' ');writeln;
将a中前n个数输出：7 4 8 9 1 5
for i:=1 to n-1 dobeginfor j:=1 to n dowrite(a[i+j],' ');end;end.
输出（n-1）*n个数，在一行中,各个数如下表：
j= 1 2 3 4 5 6
i=1 a[2] a[3] a[4] a[5] a[6] a[7] 4 8 9 1 5 7
i=2 a[3] a[4] a[5] a[6] a[7] a[8] 8 9 1 5 7 4
i=3 a[4] a[5] a[6] a[7] a[8] a[9] 9 1 5 7 4 8
i=4 a[5] a[6] a[7] a[8] a[9] a[10] 1 5 7 4 8 9
i=5 a[6] a[7] a[8] a[9] a[10] a[11] 5 7 4 8 9 1
一念花开
2024-10-23 05:20:29
热门标签
