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

arutik5 arutik5    3   03.10.2019 19:01    9

Ответы
Molina1234 Molina1234  17.08.2020 07:37

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика