Question

ПОМОГИТЕ В PASCAL ПОЖАЛУЙСТА ток Г ,Д

Answer 1

Var i, n, s, positive, negative: integer;
begin
readln(n);
for i := 1 to n do begin
readln(s);
if s < 0 then
negative := negative + 1;
else
positive := positive+1;
end;
writeln(positive);
writeln(negative);
end.