Question

How to find the maximum difference between two successive elements in an int array with Pascal

Answer 1

program MaxDifference;

uses
  SysUtils, Math;

function MaxDifference(arr: array of Integer): Integer;
var
  i, maxDiff, diff: Integer;
begin
  if Length(arr) < 2 then
  begin
    MaxDifference := 0;
    Exit;
  end;

  maxDiff := 0;
  for i := 1 to Length(arr) - 1 do
  begin
    diff := Abs(arr[i] - arr[i - 1]);
    if diff > maxDiff then
    begin
      maxDiff := diff;
    end;
  end;

  MaxDifference := maxDiff;
end;

var
  lst: array[0..5] of Integer = (3, 1, 9, 5, 11, 13); // 1, 9 -> 8
begin
  WriteLn('Max Difference: ', MaxDifference(lst));
end.



(*
run:

Max Difference: 8

*)

 

70+ SQL courses for beginners and professionals