Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы