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

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

Задать свой вопрос
1 ответ

begin

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

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

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

 if z.Countlt;18 then

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

 z.Println;  

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт