На вход в первой строке подается целое четное положительное число N, а во второй строке — массив из N неотрицательных целых чисел. Найти номер первого из двух последовательных элементов, произведение которых минимально (если таких пар несколько, то надо выбрать последнюю из них). Элементы нумеруются от 1.

решить на паскале

var

a:array[0..10000] of longint;

n,i,poz,max:longint;

begin

readln(n);

for i:=1 to n do begin

read(a[i]); end;

max:=10000000;

for i:=1 to n-1 do begin

if(a[i]=a[i+1]-1) then

if (a[i]*a[i+1]<max) then begin max:=a[i]*a[i+1]; poz:=i; end end;

writeln(poz);

end.

P.S. Код довольно сыроватый, да плюс практически не проверен. Можешь воспользоваться, моей целью было подкинуть идею, а может и всё тут норм, хз.