program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
MyArr: array[0..3,0..1] of Integer = ((1,2),(4,3),(22,31),(56,10));
I1,I2: Integer;
begin
for I1 := 0 to High(MyArr) do
begin
for I2 := 0 to High(MyArr[I1]) do
begin
Writeln(MyArr[I1][I2]);
end;
end;
Readln;
end.
|
请发表评论