Даны 2 массива а(5) и б(5). Сформируйте 2 новых массива, в 1ый внести четные элементы из 2х массивов,во второй только положительные.

Какая то странная программа

Странная она (на Ваш взгляд), или нет, но она работает. Допускаю, что вас иначе учат решать, но Вы не то, чтобы версию указали языка, Вы даже язык программирования не указали!

Установите, как указано, версию PascalABC.NET 3.2, сборка 1363 от 17.12.2016 на свой компьютер и убедитесь, что программа совершенно исправно работает.

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(5,-99,99); Write('А: '); a.Println;  var b:=ArrRandom(5,-99,99); Write('B: '); b.Println;  var c:=a.Where(x->x.IsEven).Concat(b.Where(x->x.IsEven)).ToArray;  Write('C: '); c.Println;  var d:=a.Where(x->x>0).Concat(b.Where(x->x>0)).ToArray;  Write('D: '); d.Printlnend.ПримерА: 88 72 -30 8 5B: -95 28 -62 17 -87C: 88 72 -30 8 28 -62D: 88 72 8 5 28 17