Цитата:
Сообщение от Максим-2804
Имеется последовательность чисел, содеpжащая n элементов.
Опpеделить, сколько pаз в ней меняется знак.
|
Код:
uses crt;
const
n=10;
var
i,T:integer;
a:array [1..n] of integer;
function Sign(s:integer):integer;
begin
if s<0 then Sign:=-1 else Sign:=1;
end;
begin
clrscr;
randomize;
for i:=1 to n do
begin
repeat
a[i]:=10-random(21);
until a[i]<>0;
write(a[i]:5);
end;
writeln;
T:=0;
for i:=1 to n-1 do
if Sign(a[i])<>Sign(a[i+1]) then Inc(T);
writeln('Sign changes ',T,' times');
readln;
end.