<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -49, 49);
a.Println;
var b := ArrRandom(10, -49, 49);
b.Println;
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println
end.
<h2>38 -38 -24 -7 -5 -22 6 -42 -21 -11</h2><h2>12 -16 -23 -36 -29 8 -42 -44 -4 24</h2><h2>50 -54 -47 -43 -34 -14 -36 -86 -25 13</h2>