3
{ Program to demonstrate the MinValue function. }
5
{ Make sure integer is 32 bit}
11
f_array:array[1..100] of Float;
12
i_array:array[1..100] of Integer;
19
Pf_array:=@f_array[1];
20
Pi_array:=@i_array[1];
22
for i:=low(f_array) to high(f_array) do
23
f_array[i]:=(random-random)*100;
24
for i:=low(i_array) to high(i_array) do
25
i_array[i]:=random(I)-random(100);
27
Writeln('Min Float : ',MinValue(f_array):8:4);
28
Writeln('Min Float (b) : ',MinValue(Pf_array,100):8:4);
29
Writeln('Min Integer : ',MinValue(i_array):8);
30
Writeln('Min Integer (b) : ',MinValue(Pi_array,100):8);