Canon/open_set/55_long_array2.pas

31 lines
463 B
ObjectPascal
Raw Normal View History

2024-03-09 20:11:27 +08:00
program Arrays;
var
a: array[0..4095] of integer;
b: array[0..3, 0..1023] of integer;
c: array[0..1023, 0..3] of integer;
function f1: integer;
begin
a[5] := 4000;
a[4000] := 3;
a[4095] := 7;
c[0, a[4095]] := a[2216] + 9;
f1 := a[a[5]];
end;
begin
b[1][0] := 1;
b[2][0] := 2;
b[2][1] := 3;
b[3][0] := 4;
b[3][1] := 5;
b[3][2] := 6;
c[0][0] := 1;
c[0][1] := 2;
c[1][0] := 3;
c[1][1] := 4;
write(f1);
write(c[2][0]);
end.