Question

Решить в Паскаль: Найти максимальную полуразность двух соседних чисел(массивы)

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('Длина массива (не менее 2):');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var r := Abs(a[1] - a[0]);

 for var i := 2 to n - 1 do

   if Abs(a[i] - a[i - 1]) > r then

     r := Abs(a[i] - a[i - 1]);

 Print(r / 2)

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который решает задачу нахождения максимальной полуразности между соседними числами в массиве:

pascalCopy code
program MaxHalfDifference;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  maxHalfDiff: Integer;
  i: Integer;

// Функция для нахождения полуразности между двумя числами
function HalfDifference(a, b: Integer): Integer;
begin
  HalfDifference := Abs(a - b) div 2;
end;

begin
  // Заполнение массива данными (можно изменить по своему усмотрению)
  for i := 1 to N do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

  // Инициализация максимальной полуразности
  maxHalfDiff := -1;

  // Поиск максимальной полуразности
  for i := 1 to N - 1 do
  begin
    if HalfDifference(arr[i], arr[i + 1]) > maxHalfDiff then
      maxHalfDiff := HalfDifference(arr[i], arr[i + 1]);
  end;

  // Вывод результата
  WriteLn('Максимальная полуразность между соседними числами: ', maxHalfDiff);
end.

В этом примере мы сначала заполняем массив данными, затем находим полуразность между каждой парой соседних чисел и сохраняем максимальную полуразность. В конце выводится найденное значение максимальной полуразности. Вы можете изменить размер массива и вводимые данные в соответствии с вашими потребностями.