1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями;

2)составьте программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями

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.