Ответы
Ответ дал:
0
program abc;
var n,k,i:shortint;
a:real;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if a<0 then
k:=k+1;
end;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад