сколько раз меняется знак

[shalgan]

добрый день,возникла небольшая проблемка, программа работает,но считает на 1ед больше,помогите исправить пожалуста

procedure TForm1.Button1Click(Sender: TObject);
var
a:array of integer;
s,n,i:integer;
begin
n:=memo1.lines.Count;
s:=0;
setlength(a,n);
for i:=0 to (n-1) do
a[i]:=strtoint(memo1.lines[i]);
for i:=0 to n do
if a[i]*a[i+1]<0 then s:=s+1;
edit1.text:=inttostr(s);
end;
end.

Безымянный.jpg

Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Определить сколько раз в этой последовательности меняется знак. (Например, в последовательности1, -34, 8, 12, -5 знак меняется 3 раза).

[Utkin]

Ну так напишите вместо s:=0 s:=-1; Но предварительно проведите полный тест особенно на различные знаки в начале и в конце последовательности.

[Аватар]

Второй цикл почему до n? Там до n-2 нужно

[shalgan]

Сообщение от Аватар

Второй цикл почему до n? Там до n-2 нужно

воо,спасибо огромное,очень помогли