Имеется ли в массиве хотя бы одна пара соседних чисел, являющихся противоположными - Free Pascal

Проверить, имеется ли в одномерном числовом массиве хотя бы одна пара соседних чисел, являющихся противоположными.

Листинг программы

i:=1;
k:=0;
while(i<n)and(k=0) do
if a[i]*a[i+1]<0 then k:=1
else i:=i+1;
if k=0 then write('Такой пары нет')
else write('Такая пара есть');

Объяснение кода листинга программы

В данном коде решается задача проверки наличия в массиве хотя бы одной пары соседних чисел, являющихся противоположными.

В первой строке устанавливаются начальные значения счётчика элементов i=1 и флага k=0.
Вторая строка говорит о том, что цикл while будет выполняться до тех пор, пока i меньше n и значение флага k равно 0.
Внутренний блок if проверяет, являются ли текущий и следующий элементы массива противоположными (их произведение отрицательно). Если это так, то значение флага k меняется на 1.
Если условие if не выполняется, то значение i увеличивается на 1.
После завершения цикла while выполняется проверка значения флага k. Если оно равно 0, то выводится сообщение Такой пары нет. Если флаг k равен 1, то выводится сообщение Такая пара есть.