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

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

Comments

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