PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
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.
38 -38 -24 -7 -5 -22 6 -42 -21 -11
12 -16 -23 -36 -29 8 -42 -44 -4 24
50 -54 -47 -43 -34 -14 -36 -86 -25 13