Не үшін кейип кердын кастюнын ауыстрамыз​

Program Adelia17;
uses crt;
const n=30;
var
  matr:array [1..n] of integer;
  i,pos,neg,zero:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln(); writeln();
  writeln('Программа находит количество положительных, отрицательных и нулевых элементов массива');
  pos:=0; neg:=0; zero:=0;
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
  begin
      matr[i]:=random(100)-50;
      write(matr[i]:4,' ');
      if matr[i]>0 then pos:=pos+1;
      if matr[i]<0 then neg:=neg+1;
      if matr[i]=0 then zero:=zero+1;
    end;
    writeln();
  writeln('Количество положительных элементов равно ',pos);
  writeln('Количество отрицательных элементов равно ',neg);
  writeln('Количество    нулевых    элементов равно ',zero);
end.

Паскаль.

Сменой знака считается переход от отрицательного к нулю, от нуля к положительному, от отрицательного к положительному и наоборот. По крайней мере в условии не сказано обратное.

program progr1;

var count,i,n,x,znak,znak_old:integer;
begin
write('n-> '); readln(n);
count:=0;
for i:=1 to n do
begin
write(i,'-> '); readln(x);
if x < 0 then znak:=-1;
if x>0 then znak:=1;
if x=0 then znak:=0;
if i < > 1 then
if znak < > znak_old then count:=count+1;
znak_old:=znak;
end;
write('count=',count);
readln;
end.