Работа с одномерными массивами в Delphi 7.0

[Димкоff]

Нужно составить программу, отыскивающую среди пар элементов одномерного массива M те, разность между которыми есть величина, наибольшая для элементов данного массива. Уже вторую неделю с этой прогой...это жесть просто, если знаете, помогите!!!

[Fantazerishka]

h:=0;
For i:=1 to N do begin
if m[i]>m[i+1] then begin
k:=M[i]-m[i+1]; end
else begin
k:=m[i+1]-m[i];
end;
i:=i+2;
if k>h then begin
h:=k;
end;
end;

примерно так, в компиляторе правда не проверял...

[Димкоff]

вот это да.....спасибо большое!!! ты - гениальный прграммист!...

[Студентос]

Сообщение от Димкоff

вот это да.....спасибо большое!!! ты - гениальный прграммист!...

скиньте пожалуйста файл программы или фотку как выглядит программа