Я не могу сделать программу полностью в Delphi Borland 7

[SuweR]

сколько раз изменяется знак элементов при прохождении последовательности

[stat_ya2.0]

Сообщение от SuweR

последовательности

Сообщение от SuweR

сколько раз изменяется знак элементов при прохождении последовательности

могу помочь пиши на почту kozebysic@yandex.ru

[Serge_Bliznykov]

очень "сложная" задача.

примерно так

const N = 20;
var 
  A : array[1..N] of integer;
  i, count : integer;
begin
   Randomize;
   for i:=1 to N do begin A[i] := -100+Random(200); Write(A[i],' '); end;
   WriteLn;
  
   count:=0;
   for i:=2 to N do
     if (A[i-1]>=0) and (A[i]<0)
        or 
        (A[i-1]<0) and (A[i]>=0) then Inc(Count);

  WriteLn('Знак меняется ', Count,' раз.')
end.

UPS!
ТАк это раздел Фриланс!
приношу свои извинения за неуместный здесь код!

[VIK_aka_TOR]

а учитывая что минус на минус дает плюс - то можно сократить цикл до:

   
  for i:=2 to N do
    if (A[i-1] * A[i] < 0) then 
      Inc(Count);

но тогда нюансы будут с 0.

хотя в википедии:

Ноль не имеет знака.