Даны два массива X(10) и Y(8). Сформировать массив Z(18) из положительных элементов...

Question

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

Answer 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

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

 z.Println;  

end.