Question

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

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

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

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.