Найти номер последней пары соседних элементов с разными знаками

[Albert341]

procedure TForm1.Button2Click(Sender: TObject);
var i,j,s,max,k,p:integer;
flag:boolean;
begin
s:=0;
k:=0;
for j:=1 to n do
for i:=1 to m do
begin

end;
Помогите до делать пожалуйста

[igh0st]

Не совсем понятна задача. К тому же Вы используете переменные n и m, которые у вас не декларированы в процедуре.

[p51x]

for i := n downto 2 do if a[i]*a[i-1] < 0 then break;