Ре­ше­ние. Со­дер­жа­ние вер­но­го от­ве­та: про­грам­ма про­смат­ри­ва­ет все пары со­сед­них чисел в мас­си­ве и под­счи­ты­ва­ет ко­ли­че­ство таких пар, в ко­то­рых вто­рой эле­мент более чем вдвое пре­вы­ша­ет пер­вый.

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

k:=0;

for i:=2 to N do begin

if a[i] > 2*a[i-1] then k:=k+1;

end;

writeln(k);

При срав­не­нии эле­мен­тов можно вме­сто умно­же­ния ис­поль­зо­вать де­ле­ние, но при этом сле­ду­ет по­за­бо­тить­ся о том, чтобы при де­ле­нии по­лу­чал­ся ве­ще­ствен­ный ре­зуль­тат, а не округлённое целое зна­че­ние. Можно, на­при­мер, за­пи­сать усло­вие про­вер­ки так: if a[i] / a[i-1] > 2.

Сле­ду­ю­щая за­пись не­до­пу­сти­ма, так как при таком де­ле­нии про­ис­хо­дит округ­ле­ние до мень­ше­го це­ло­го, в ре­зуль­та­те, на­при­мер, пара (2, 5) не будет опре­де­ле­на как до­пу­сти­мая: if a[i] div a[i-1] > 2.

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

За­ме­на в преды­ду­щем не­вер­ном ре­ше­нии стро­го­го срав­не­ния на не­стро­гое не де­ла­ет про­грам­му пра­виль­ной, так как в этом слу­чае будет, на­при­мер, оши­боч­но учте­на не со­от­вет­ству­ю­щая усло­ви­ям пара (5, 10).

Ещё один при­мер не­вер­но­го ре­ше­ния (при­во­дит­ся толь­ко тело цикла):

j := a[i] / a[i-1]

if j > 2 then k:=k+1;

Здесь це­ло­му числу при­сва­и­ва­ет­ся ве­ще­ствен­ное зна­че­ние. Такое при­сва­и­ва­ние либо (в за­ви­си­мо­сти от языка про­грам­ми­ро­ва­ния) при­ведёт к ошиб­ке транс­ля­ции, либо даст не­вер­ный ре­зуль­тат при вы­пол­не­нии, как при це­ло­чис­лен­ном де­ле­нии.