pascal做二维数组

来源：百度知道 编辑：UC知道 时间：2024/05/21 13:56:06
输出以下二维数组
10 20 30
40 50 60
70 80 90
100 110 120
要turbo pascal也可运行的

var
i:longint;
begin
for i:=1 to 12 do
begin
write(i*10,' ');
if i mod 3=0 then writeln;
end;
end.

const
a:array[1..4,1..3]of integer=((10,20,30),(40,50,60),(70,80,90),(100,110,120));
var
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;
end;
end.

就写两种了，没时间了