If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
var
a, s_p, s_o: integer;
begin
s_o := 1;
s_p := 0;
repeat
readln(a);
if(a < 0) then s_o := s_o * a else
s_p := s_p + a;
until(a = 0);
writeln('Произведение отр.: ', s_o);
writeln('Сумма пол.: ', s_p);
end.
Если считать, что в каждом варианте должна быть минимум одна курица или собака, то таких вариантов 15, а если можно считать, что кого-то из них 0, то 17.
Первый файл - без нулей, второй - с нулями
Javascript:var массив=[];for(var сч=0;сч<5;сч++)массив.push(Math.floor(Math.random()*100));alert(массив);alert(Math.min.apply(null,массив));alert(Math.max.apply(null,массив));