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

При­мер фраг­мен­та про­грам­мы на Пас­ка­ле

r:=abs(a[2]-a[1]);

k:=1;

for i:=2 to N-1 do begin

d:=abs(a[i+1]-a[i]);

if d>r then begin

r:=d;

k:=i;

end;

end;

writeln(a[k], ' ', a[k+1]);

В ка­че­стве на­чаль­но­го зна­че­ния для мак­си­маль­ной раз­но­сти можно ис­поль­зо­вать ноль, но даже в этом слу­чае нужно ис­поль­зо­вать стар­то­вое зна­че­ние ин­дек­са. Оно будет ис­поль­зо­ва­но, если все эле­мен­ты в мас­си­ве ока­жут­ся оди­на­ко­вы­ми. Можно за­по­ми­нать не один, а оба ин­дек­са най­ден­ной пары.

При­мер про­грам­мы на Си

r=0;

j=0; k=1;

for (i=0; i d=fabs(a[i+1]-a[i]);

if (d>r) {

r=d;

j=i; k=i+1;

}

}

printf("%f %f\n", a[j], a[k]);

Можно хра­нить не ин­дек­сы, а зна­че­ния эле­мен­тов. Но по­сколь­ку раз­ре­ше­но ис­поль­зо­ва­ние толь­ко двух ве­ще­ствен­ных пе­ре­мен­ных, в этом слу­чае не удаст­ся за­по­ми­нать раз­но­сти, их придётся каж­дый раз вы­чис­лять за­но­во.

При­мер про­грам­мы на Ал­го­рит­ми­че­ском языке

d:=a[1]; r:=a[2]

нц для i от 2 до N-1

если abs(a[i+1]-a{i]) > abs(r-d) то

d:=a[i]

r:=a[i+1]

все

кц

вывод d, " ", r

До­пус­ка­ют­ся и дру­гие спо­со­бы ре­ше­ния, если они со­от­вет­ству­ют ука­зан­ным в усло­вии огра­ни­че­ни­ям и при­во­дят к пра­виль­но­му от­ве­ту.