var
number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}
begin
writeln('Введите N');
readln(N);
for i:= 1 to N do
begin
writeln('Введите целое число');
readln(number);
if number < 0 then notr:= notr + 1;
if number > 0 then npol:= npol + 1;
if number = 0 then n0:= n0 + 1;
end;
writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');
end.
А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.
USES GraphABC, CRT;
VAR klavisha:char;
begin
maximizewindow;
rectangle(600,100,1200,1000);
circle(900,250,100);
circle(900,500,100);
circle(900,750,100);
repeat
klavisha:=readkey;
circle(900,250,100);
circle(900,500,100);
circle(900,750,100);
if klavisha='1' then floodfill(900,250,clred);
redraw;
if klavisha='2' then floodfill(900,500,clyellow);
redraw;
if klavisha='3' then floodfill(900,750,clgreen);
redraw;
until 9>10;
end.
Среда разработки PascalABC, свет на светофоре переключать на 1, 2 и 3 соответственно.
