Ответ: 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;}