// PascalABC.NET 3.2, сборка 1485 от 15.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Write('Укажите длины массивов А и В: '); var (n1,n2):=ReadInteger2; var a:=ArrRandom(n1,-5,5); Write('A: '); a.Println; var b:=ArrRandom(n2,-5,5); Write('B: '); b.Println; (n1,n2):=(a.Where(x->x=0).Count,b.Where(x->x=0).Count); var c:array of integer; if n1<=n2 then c:=a.Concat(b).ToArray else c:=b.Concat(a).ToArray; Write('C: '); c.Println end.