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

Пользователь

от narciso , в категории: Другие , 7 месяцев назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от nikko , 7 месяцев назад

@narciso 

Для нахождения наибольшего из отрицательных элементов в 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.


Здесь мы используем цикл for для перебора всех элементов массива и проверки каждого отрицательного элемента. Переменная maxNeg инициализируется значением -MaxInt (наибольшее отрицательное целое число), чтобы убедиться, что любой отрицательный элемент массива будет больше этого значения. Если мы находим отрицательный элемент, который больше maxNeg, мы обновляем значение переменной maxNeg. Если в массиве нет отрицательных элементов, мы выводим соответствующее сообщение. В противном случае мы выводим наибольший отрицательный элемент.