В нем сравниваешь каждое число с нулем, если число меньше 0, значит оно отрицательное и к счетчику прибавляешь 1(счетчик - любая переменная, которая изначально равна 0)
USES CRT,Graph;VAR Device,Mode:Integer; i,x,y,s:Integer;BEGINCLRSCR; Device:=0; InitGraph(Device,Mode,''); s:=100; x:=320; y:=240; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s-10; SetColor(White); end; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s+10; SetColor(White); end; Circle(x,y,s);Readln;END.
Объяснение:
Делаешь цикл из 3 последовательностей
В нем сравниваешь каждое число с нулем, если число меньше 0, значит оно отрицательное и к счетчику прибавляешь 1(счетчик - любая переменная, которая изначально равна 0)