Даны 2 массива а(5) и б(5). Сформируйте 2 новых массива, в 1ый внести четные элементы из 2х массивов,во второй только положительные.
Даны 2 массива а(5) и б(5). Сформируйте 2 новых массива, в 1ый внести четные элементы из 2х массивов,во второй только положительные.
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы