Как найти наибольший из отрицательных элементов в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21

var
  arr: array of Integer; // объявление и инициализация массива
  i, maxNeg: Integer;
begin
  // заполнение массива случайными числами
  SetLength(arr, 10);
  for i := 0 to Length(arr)-1 do
    arr[i] := Random(100) - 50;

  // поиск наибольшего отрицательного элемента
  maxNeg := -MaxInt; // начальное значение переменной
  for i := 0 to Length(arr)-1 do
    if (arr[i] < 0) and (arr[i] > maxNeg) then
      maxNeg := arr[i];

  // вывод результата на экран
  if maxNeg = -MaxInt then
    ShowMessage('Отрицательных элементов в массиве нет')
  else
    ShowMessage('Наибольший отрицательный элемент: ' + IntToStr(maxNeg));
end.