一道简单的pascal

来源：百度知道 编辑：UC知道 时间：2024/06/07 13:10:43
比如说 输入
1 2 3
4 5 6
要输出
1 3 5
2 4 6

要求适用的范围为M行N列。
谁能用二维数组写?

1,2L
你们的程序都不对
我试了~~输出的是135
246

M行N列 实际上是M行 相邻的两数差为N的等差数列
pascal程序：
var
i,j,n,m:longint;
a:array[1..500000]of longint;
begin
readln(n,m);
for i:=1 to n*m do
read(a[i]);
for i:=1 to m do begin
for j:=0 to n-1 do
write(i+j*n,' ');
writeln;
end;
end.

program ttemp;
var
i,j,n,m:longint;
a:array[1..500000]of longint;
begin
readln(n,m);
for i:=1 to n*m do
read(a[i]);
for i:=1 to m do begin
for j:=0 to n-1 do
write(i+j*n,' ');
writeln;
end;
end.

话说我有点笨,LZ可以把题目写再详细点吗?是先输出奇数再输出偶数,还是指其它什么意思???