//PascalABC.Net 3.1.0.1200
begin
var a := ReadArrInteger(ReadInteger('n ='));
Println(a);
var b := a.Where(x -> (x mod 2 <> 0) and (x < 0)).ToArray;
Println(b.Count);
Println(b.Sum);
Println(a.Where(x -> (x <> 0) and (x mod 5 = 0)).Aggregate(1, (p, x)-> x * p));
end.