Заданы массивы A и B из N чисел (N=10), случайным образом сформировать новый массив, каждый элемент которого равен сумме элементов этих массивов.
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) const n = 10; begin var a:=ArrRandom(n,-10,10); a.Println; var b:=ArrRandom(n,-10,10); b.Println; var c:array[0..n-1] of integer; for var i:=0 to 9 do c[i]:=a[i]+b[i]; c.println; end.