Массив одномерный паскаль

[Ann2807]

Скажите, пожалуйста, как определить, если в массиве два соседних отрицательных элемента и найти номера последней пары

[Mad_Cat]

num:=0;
for i:= 1 to n-1 do
if (a[i]<0) and (a[i+1]<0) then Num:=i;
if num<>0 then writeln(Num:4,'&',num+1:4)
else writeln('ABSENT!!!');

[Serge_Bliznykov]

метод Mad_Cat вполне работоспособный.

В целях оптимизации можно цикл крутить от конца к началу и прерывать его, как только нужную пару нашли:

  num:=0;
  for i:= n-1 downto 1 do
           if (a[i]<0) and (a[i+1]<0) then begin Num:=i; Break end;
  if num<>0 
      then writeln('Last Position negative pair = ',Num,' & ',num+1)
      else writeln('ABSENT!!!');

но это так, мелочи во славу ОПТИМИЗАЦИИ (и выигрыша пары тысячных милисекунды...)

[Ann2807]

Спасибо большое