8 lines
155 B
ObjectPascal
8 lines
155 B
ObjectPascal
program arraytest;
|
|
var arr:array[-5..5] of integer;
|
|
var s:string[5];
|
|
begin
|
|
arr[-5] := 10;
|
|
arr[5] := 11;
|
|
writeln(arr[-5], ' ', arr[5]);
|
|
end.
|