Ответы и объяснения

2012-01-31T17:04:46+04:00

var
i, a, k: integer;

begin
k := 0;
for i := 1 to 10 do
begin
readln(a);
if a < 0 then k := k + 1;
end;
writeln('количество отрицательных -', k);
end.