Question

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

Answer 1

// 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.Println
end.

Пример
А: 88 72 -30 8 5
B: -95 28 -62 17 -87
C: 88 72 -30 8 28 -62
D: 88 72 8 5 28 17

Answer 2

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

Answer 3

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

Answer 4

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