Технический форум - Помогите написать программку на Паскале

Цитата:

Сообщение от павля (Сообщение 477035)

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

Эх, Павля, Павля - вот эту бы энергию и время, которое Вы тратите на распихивание задачек по форумам, да на изучение основ Паскаля... Уж всяко с подобной ерундой пора бы справляться самостоятельно! Ну пожалуйста:

Код:

CONST

 N=40;

VAR

 A:ARRAY[1..N] of Integer;

 M:Byte;

 i:Integer;



Function Sign(s:integer):ShortInt;

 begin

  If s<0 then Sign:=-1 else

  If s>0 then Sign:=1 else

  Sign:=0;

 end;



BEGIN

 Randomize;

 For i:=1 to N do

  begin

   A[i]:=50-Random(100);

   Write(A[i]:5);

  end;

 WriteLn;

 WriteLn;

 M:=0;

 For i:=1 to N-1 do

  If (Sign(A[i])<>Sign(A[i+1])) and (Sign(A[i])<>0)

                                and (Sign(A[i+1])<>0) then Inc(M);

 WriteLn('Number is ',M);

 ReadLn;

END.