Sa se determine distanta maxima intre doua elemente consecutive din sir - analiza problemei - elaborarea algoritmului

Se citeste n si sirul de valori reale x1,x2,..,xn ordonate crescator.  Sa se determine distanta maxima intre doua elemente consecutive din sir.

Analiza problemei - elaborarea algoritmului :

- este o problema maxim

- distanta dintre primele valori consecutive din sir se noteaza cu max

- dupa care facem o comparatie cu urmatoarele distante dintre valori

- in momentul in care se intalneste o valoare mai mare decat max atunci aceasta valoare va deveni noul max

- algoritmul se opreste in momentul in care se face comparatia dintre max si distanta dintre ultimele doua valori ale sirului.

program dist_elem;

var n,i:word;

max:real;

x:array[1..50] of real;

BEGIN

write('n=');readln(n);

for i:=1 to n do

begin

write('x[',i,']=');

readln(x[i]);

end;

max:=x[2]-x[1];

for i:=2 to n-1 do

if x[i+1]-x[i]>max then max:=x[i+1]-x[i];

writeln('max=',max:6:2);

readln;

END.