1)
begin
var a := ReadArrInteger(8);
a.Where(t -> t < 0).Println;
end.
2)
var a := ReadArrInteger(6);
a.Where(t -> t > 0).Println;
1)
begin
var a := ReadArrInteger(8);
a.Where(t -> t < 0).Println;
end.
2)
begin
var a := ReadArrInteger(6);
a.Where(t -> t > 0).Println;
end.