var
n: array[-10..15] of integer;
i,a,b,c: integer;
begin
randomize;
for i:=-10 to 15 do
n[i]:=random(-10,15);
end;
if n[i] > 0 then
a:= a + 1
else
if n[i] < 0 then
b:= b+1
c:= c + 1
end
writeln('Количество положительных чисел: ',a);
writeln('Количество отрицательных чисел: ',b);
writeln('Количество нулей: ',c);
end.
var
n: array[-10..15] of integer;
i,a,b,c: integer;
begin
randomize;
for i:=-10 to 15 do
begin
n[i]:=random(-10,15);
end;
for i:=-10 to 15 do
begin
if n[i] > 0 then
a:= a + 1
else
begin
if n[i] < 0 then
b:= b+1
else
c:= c + 1
end
end;
writeln('Количество положительных чисел: ',a);
writeln('Количество отрицательных чисел: ',b);
writeln('Количество нулей: ',c);
end.