안녕하세요 하얀까마귀 입니다.

잉?? min,max요? 그냥 for문 돌면서 찾으면 됩니다.

min max 함수는 두값중에 큰값을 리턴하구요..

procedure myMaxSearch;
var
fMin, fMax : double;
i : Integer;
begin
  fMin := arr[0];
  fMax := arr[0];
  for i = 1 to 7 do
  begin
    if fMin > arr[i] then fMin := arr[i];
    if fmax < arr[i] then fmax := arr[i]
  end;
end;

아니면 MaxValue 던가 하는 함수도 있어요. 그냥 값 넘겨줘도 되구요.

참고로...
function MaxValue(const Data: array of Double): Double;
var
  I: Integer;
begin
  Result := Data[Low(Data)];
  for I := Low(Data) + 1 to High(Data) do
    if Result < Data[I] then
      Result := Data[I];
end;

function MaxIntValue(const Data: array of Integer): Integer;
var
  I: Integer;
begin
  Result := Data[Low(Data)];
  for I := Low(Data) + 1 to High(Data) do
    if Result < Data[I] then
      Result := Data[I];
end;

Math 에 있는 함수입니다.

그럼 즐거운 시간 도세요.

하얀까마귀

다음 함수를 사용해보세요

function MaxValue(const Data: array of Double): Double;

function MinValue(const Data: array of Double): Double;