Даны два массива x(10) и y(8). сформировать массив z(18) из положительных элементов массивов x и y. если положительных элементов меньше 18, то оставшимся элементам массива z присвоить значение +1.

begin

 var x := ArrRandom(10, 0, 9); x.Println;

 var y := Arrrandom(8, 0, 9); y.Println;

 var z := (x.Where(x->x>0) + y.Where(x->x>0)).toList;

 if z.Count<18 then

   z.AddRange(SeqFill(18-z.Count, 1));

 z.Println;  

end.