Ответ: Program n1;var a,i,k: integer;begink:=0;for i:=1 to 10 do beginwrite(‘введите ‘,i,’ число: ‘);readln(a);if a<0 then k:=k+1;end;write(‘количество: ‘,k);end.
Ответ: #include <iostream>int main() { int k, i, t; k=0; for (i=1; i<=10; i++) { std::cin>>t; if (t<0) {k+=1;} } std::cout<<k;}