Delphi returns the maximum value of double precision floating-point array 2

From , 3 Years ago, written in Delphi (Object Pascal), viewed 82 times.

function MaxOfArray(const A: array of Extended): Extended; overload;
var
  Idx: Integer;
begin
  Assert(Length(A) > 0);
  Result := A[Low(A)];
  for Idx := Succ(Low(A)) to High(A) do
    if A[Idx] > Result then
      Result := A[Idx];
end;
//delphi/2280

Reply to "Delphi returns the maximum value of double precision floating-point array 2"

Here you can reply to the paste above

Author What's your name?

Title Give your paste a title.

Language What language is your paste written in?

Your paste Paste your paste here

Create Shorturl Create a shorter url that redirects to your paste?

Private Private paste aren't shown in recent listings.

Delete After When should we delete your paste?

Spam protection Type in the letters

https://burned.cc - Burn After Reading Website

Pastebin.vip

Delphi returns the maximum value of double precision floating-point array 2

Reply to "Delphi returns the maximum value of double precision floating-point array 2"