Question

подсчитать количество отрицательных чисел из 10 введенных с клавиатуры

Answer 1

Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
write('введите ',i,' число: ');
readln(a);
if a<0 then k:=k+1;
end;
write('количество: ',k);
end.

Answer 2

#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;
}