Задан массив Х(N)(N<=60). Переписать отрицательные элементы массива Х последовательно в массив У. Отпечатать сформированный массив У.

(см. объяснение)

Объяснение:

Программа написана на языке PascalABC:

##

var x: array of integer := ReadArrInteger(ReadInteger('N >'));

var y: array of integer := x.Where(x->x<0).ToArray;

y.Print;

Задание выполнено!