Программа с использованием функции

[Cartman18]

Помогите, решить программу с использованием функции. определить:Число перемен знака в массиве X1, X2, ..., Xn.
Заранее спасибо! в Паскале

[puporev]

В этом коде все нормально работает, если в массиве нет нолей. Поскольку ноль число не положительное и не отрицательное, тут нужно подумать. Если просто нужно сдать работу, то можно заполнить массив вручную, без нолей. Тогда все будет нормально.

program mass1;
uses crt;
var n,i,k:integer; a:array[1..100] of integer;
function SmZn(n:integer):integer;
var k:integer;
begin
k:=0;
for i:=1 to n do
    begin
     if a[i]*a[i+1]<0 then
     k:=k+1;
   end;
SmZn:=k;
end;
begin
  clrscr;
  write('n=');readln(n);
  randomize;
  for i:=1 to n do begin
     a[i]:= random(15)-10;
     write(a[i],' ');
  end;readln;
write('k=',SmZn(n));readln;
end.