решение задачки в delphi

[w0lf16]

ребят помогите решить задачку.

определить наибольшую по абсолютной величине разность между Аi и Ai-1

[Stilet]

Если я правильно понял эт массив. тогда так:

for i:=low(a)+1 to high(a) do
 if abs(a[i]-a[i-1])>Max then max:=a[i]-a[i-1];

Здесь Max - переменка того же типа что и массив.

[w0lf16]

спасибо больше)