условия

[glupayastudentka]

Подсчитать количество отрицательных среди чисел а, b, с.

[SERG1980]

var otr:integer;
if a<0 then inc(otr);
if b<0 then...
....

[Stilet]

А вдруг автору не паскаль нужен?
А вот такое:

a=-1
b=5
c=-5
d=0
d+=( if a<0 then 1 else 0)
d+=( if b<0 then 1 else 0)
d+=( if c<0 then 1 else 0)
print d

[__STDC__]

еще как-нибудь так можно =)

uses
	math;
var
	a,b,c,x:integer;
begin
	a := -1; b := -1; c := -2;
	x := abs((sign(a) + sign(b) + sign(c) - 3) div 2);
	writeln(x);
	readln;
end.

[glupayastudentka]

не работает..

[__STDC__]

А что у вас не работает? На мой вариант не смотрите лучше, он так.. для себя.. к тому же с нулями работать не будет, надо доработать.... А вот первые два вполне подойдут.. даже тема наз-ся "условия", что предполагает использование if

[glupayastudentka]

x := abs((sign(a) + sign(b) + sign(c) - 3) div 2); ..?

[__STDC__]

я вам выше написал... сделайте с if.. этот вариант работает без нулей

в принципе можно и так сделать...

function sign(x:integer):integer;
begin
	if (x < 0) then sign := -1 else sign := 1;
end;

var
	a,b,c,x:integer;
	
begin
	a := 0; b := 0; c := -2;
	x := abs((sign(a) + sign(b) + sign(c) - 3) div 2);
	writeln(x); // x = 1
	readln;
end.

но это уже извращение))) делайте с if лучше))