mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 11:24:16 +01:00
23 lines
347 B
ObjectPascal
23 lines
347 B
ObjectPascal
Program Example30;
|
|
|
|
{ Program to demonstrate the MinIntValue function. }
|
|
|
|
{ Make sore integer is 32 bit}
|
|
{$mode objfpc}
|
|
|
|
Uses math;
|
|
|
|
Type
|
|
TExArray = Array[1..100] of Integer;
|
|
|
|
Var
|
|
I : Integer;
|
|
ExArray : TExArray;
|
|
|
|
begin
|
|
Randomize;
|
|
for I:=1 to 100 do
|
|
ExArray[i]:=Random(I)-Random(100);
|
|
Writeln(MinIntValue(ExArray));
|
|
end.
|