Tamerlaan_Sg

Доброго всем времени суток. Помогите пожалуйста с задачей на массивы и функции в паскале.
Задача состоит в том, чтобы в массиве, состоящем из 15 элементов найти максимальную и минимальную разницу между соседними элементами массива(массив после сортировки). Поиск нужно вывести в отдельную функцию. при этом для нахождения разницы не использовать дополнительно масиивы. Собственно задача, на основе который нужно все это сделать ниже:

Огромное спасибо

Vladimir_S

Пожалуйста:

program mas2;

TYPE
AR=ARRAY[1..15] OF INTEGER;

VAR
MAS:AR;
I,M,P:INTEGER;

FUNCTION Find_Max(MF:AR):INTEGER;
VAR
Max,i:INTEGER;
BEGIN
Max:=0;
FOR i:=1 TO 14 DO
IF ABS(MF[i]-MF[i+1])>Max THEN Max:=ABS(MF[i]-MF[i+1]);
Find_Max:=Max;
END;

FUNCTION Find_Min(MF:AR):INTEGER;
VAR
Min,i:INTEGER;
BEGIN
Min:=32767;
FOR i:=1 TO 14 DO
IF ABS(MF[i]-MF[i+1])<Min THEN Min:=ABS(MF[i]-MF[i+1]);
Find_Min:=Min;
END;

BEGIN
Randomize;
FOR I:=1 TO 15 DO
BEGIN
MAS[i]:=RANDOM(1000);
WRITE(MAS[i]:6);
END;
FOR i:=1 TO 14 DO
BEGIN
FOR M:=1 TO 15 DO
BEGIN
IF MAS[i]>MAS[M] THEN
BEGIN
P:=MAS[i];
MAS[i]:=MAS[M];
MAS[M]:=P;
END;
END;
END;
WRITELN;
FOR
I:=1 TO 15 DO
WRITE(MAS[i]:6);
WRITELN;
WRITELN('Maximum difference = ', Find_Max(MAS));
WRITELN('Minimum difference = ', Find_Min(MAS));
READLN;
END.

Tamerlaan_Sg

Огромное Вам спасибо