blob: 22a86f8d3fee55f15e8b2ddd62c04c636d3253b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
program openarray;
{$ifdef fpc}{$mode delphi}{$endif}
type
PDouble = ^Double;
function CheckValues(values : array of PDouble) : boolean;
var i : integer;
begin
Result := True;
for i := Low(values) to High(values) do
if values[i]^ = 0 then
Result := False;
end;
var values : array of PDouble;
i : integer;
begin
SetLength(values, 5);
for i := 0 to High(values) do
begin
New(values[i]);
values[i]^ := i+1;
end;
for i := 0 to High(values) do
writeln(values[i]^);
if CheckValues(values) then
WriteLn('OK')
else
writeln('not OK');
end.
|
