Question

1) Данн массив В n=15 заполненный случайно в диапазоне от - 40 до 20, заменить все нечетные отрицательные элементы массива
2) данн массив М n=13 заполнить любым способом, вставить в массив М после последнего честного элемента число 100
3) данн массив А и B n=10 введённых с клавиатуры зск
Получить массив С составленный из суммы соответствующих элементов А И В

Answer 1

===== PascalABC.NET =====

begin

 Println('Задание 1');

 var B := ArrRandom(15, -40, 20);

 B.Println;

 var k := ReadInteger('Введите заменяющее число:');

 B.Transform(p -> p.IsOdd and (p < 0) ? k : p);

 B.Println;

 Println('Задание 2');

 var M := ArrRandom(13, -99, 99);

 M.Println;

 var i := M.FindLastIndex(p -> p.IsEven);

 if i = -1 then

   Println('В массиве нет четных элементов')

 else

 begin  

   M := M[:i] + Arr(100) + M[i:];

   M.Println

 end;

 Println('Задание 3');

 var A := ReadArrInteger('10 элементов массива А:', 10);

 var BB := ReadArrInteger('10 элементов массива B:', 10);

 var C := A.Zip(BB, (p, q) -> p + q);

 C.Println

end.