You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
412 B
Plaintext
23 lines
412 B
Plaintext
8 months ago
|
{ This program does more stuff with subarrays }
|
||
|
|
program arr;
|
||
|
|
|
||
|
|
var arr : array [1 .. 10] of real;
|
||
|
|
|
||
|
|
procedure some (rra : array [5 .. 10] of real);
|
||
|
|
begin
|
||
|
|
rra[6] := 4
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure some2 (var rra : array [5 .. 10] of real; var x : real);
|
||
|
|
begin
|
||
|
|
rra[6] := 4;
|
||
|
|
x := 3
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
arr[3] := 3;
|
||
|
|
some(arr[2 .. 7]);
|
||
|
|
writeln(arr[3]);
|
||
|
|
some2(arr[2 .. 7], arr[4]);
|
||
|
|
writeln(arr[3], arr[4])
|
||
|
|
end.
|