Помогите, с задачей по программированию

Question

Помогите решить задачу по информатики "даны три действительный числа а, б, с. Определить сколько среди них положительных и сколько отрицательный"(блок-схема, информационная модель, интерфейс пользователя, код обработчика

Александра · Accepted Answer

А где слово "срочно" ? 
Уже не срочно что ли ?)

Svetochka · Answer

Пишите на почту или в асю 586178755

Dorin · Answer

на паскале вот так 
Program testabc; 
var a,b,c:real; 
 i:integer; 
begin 
 i:=0; 
 a:=1.5; 
 b:=-1.1; 
 c:=-2.7; 
 if a<0 then i:=i+1; 
 if b<0 then i:=i+1; 
 if c<0 then i:=i+1; 
 Writeln(i,' отрицательных'); 
 i:=3-i; 
 Writeln(i,' положительных'); 
end.