1) данн массив в n=15 заполненный случайно в диапазоне от - 40 до 20, заменить все нечетные отрицательные элементы массива
2) данн массив м n=13 заполнить любым вставить в массив м после последнего честного элемента число 100
3) данн массив а и b n=10 введённых с клавиатуры зск
получить массив с составленный из суммы соответствующих элементов а и в
===== 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.