Цитата:
Сообщение от павля
требуется составить алгоритм и программу с использованием одномерного массива, для данной задачи:
дана последовательность чисел. определить число двух соседних чисел разного знака.
|
Эх, Павля, Павля - вот эту бы энергию и время, которое Вы тратите на распихивание задачек по форумам, да на изучение основ Паскаля... Уж всяко с подобной ерундой пора бы справляться самостоятельно! Ну пожалуйста:
Код:
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.