31 lines
463 B
ObjectPascal
31 lines
463 B
ObjectPascal
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.
|