Помогите написать программку на Паскале

[павля]

Помогите написать программку на Паскале

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

 

[Vladimir_S]

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

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

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.

 

[павля]

:tehnari_ru_102:

 

[павля]

спасибочки большое