MaxValue
Adam Boduch
MaxValue
Moduł: Math
program Foo;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
I : Integer;
Bar : array [0..5] of Double;
begin
Randomize;
{ losowanie wartości przykładowej tablicy }
for I := 0 to 5 do
begin
Bar[I] := Random(1000);
end;
Writeln('Element o największej wartości: ', FloatToStr(MaxValue(Bar)));
Readln;
end.
Zobacz też: