大师作文网pascal问题 急!
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/11 22:22:43
pascal问题 急!
从键盘接受任意6个数放置如数组a中,假设这6个数为：8 1 4 2 5 6,
则可输出一个如下内容的方阵：
6 8 1 4 2 5
5 6 8 1 4 2
2 5 6 8 1 4
4 2 5 6 8 1
1 4 2 5 6 8
8 1 4 2 5 6
现要求用户输入数组大小n(n
从键盘接受任意6个数放置如数组a中,假设这6个数为：8 1 4 2 5 6,
则可输出一个如下内容的方阵：
6 8 1 4 2 5
5 6 8 1 4 2
2 5 6 8 1 4
4 2 5 6 8 1
1 4 2 5 6 8
8 1 4 2 5 6
现要求用户输入数组大小n(n
var a:array[0..19]of byte; n,i,j:byte;
begin
read(n);
for i:=0 to n-1 do read(a[i]);
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
write(a[(i+j)mod n]:2);
writeln;
end;
end.
begin
read(n);
for i:=0 to n-1 do read(a[i]);
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
write(a[(i+j)mod n]:2);
writeln;
end;
end.