作业帮pascal问题 急!从键盘接受任意6个数放置如数组a中,假设这6个数为：8 1 4 2 5 6,则可输出一个如下内容的方阵： 6 8 1 4 2 5 5 6 8 1 4 2
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 21:29:15
pascal问题 急!从键盘接受任意6个数放置如数组a中,假设这6个数为：8 1 4 2 5 6,则可输出一个如下内容的方阵： 6 8 1 4 2 5 5 6 8 1 4 2
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
pascal问题 急!从键盘接受任意6个数放置如数组a中,假设这6个数为：8 1 4 2 5 6,则可输出一个如下内容的方阵： 6 8 1 4 2 5 5 6 8 1 4 2
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.