Для вещественного массива А(20)вычислить наибольшее и наименьшее значения модуля раз-ти между сосед.эл-ми

[faix]

Курсовой проект. Программа на делфи. Буду благодарен за любую помощь.

[Stilet]

Нда... Курсачи мельчают...
Там все просто, сам то имееш какие идеи?

[Alex21]

уговорил:

{функция поиска модуля разницы между
 соседними элементами}
function t(q:integer):real;
begin
  t:=abs(A[q]-A[q+1]);
end;
....
  min:=t(1);
  max:=t(1);
  for i:=1 to 19 do
  begin
    if t(i)>Max then Max:=t(i);
    if t(i)<Min then Min:=t(i);
  end;
.....
{вывод МИН и МАКС}

Да, для курсовика слабовато будет..