Решение на с++:
#include
using namespace std;
int main()
{
int a,b,c,i;
cin>>a;
cin>>b;
cin>>c;
if(a<0) {i++;}<br>if(a<0) {i++;}<br>if(a<0) {i++;}<br>cout<<i<<"отрицательных чисел";<br>return 0;
}
решение на Pascal
var
a,b,c,i:real;
begin
readln(a);
readln(b);
readln(c);
if a<0 then i:=i+1;<br>if b<0 then i:=i+1;<br>if c<0 then i:=i+1;<br>writeln(i, ,"отрицательных чисел")
end.