var a: real;
n, i: integer;
begin
for i:= 1 to 9 do begin
readln(a);
if a < 0 then inc(n);
end;
writeln(n);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a: real;
n, i: integer;
begin
for i:= 1 to 9 do begin
readln(a);
if a < 0 then inc(n);
end;
writeln(n);
end.