Харсей
6 год назад
Даны 2 массива а(5) и б(5). Сформируйте 2 новых массива, в 1ый внести четные элементы из 2х массивов,во второй только положительные.
ОТВЕТЫ
Laevonol
Jul 9, 2019
// 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-gt;x.IsEven).Concat(b.Where(x-gt;x.IsEven)).ToArray;
Write(C: ); c.Println;
var d:=a.Where(x-gt;xgt;0).Concat(b.Where(x-gt;xgt;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
// Внимание! Если программа не работает, обновите версию!
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-gt;x.IsEven).Concat(b.Where(x-gt;x.IsEven)).ToArray;
Write(C: ); c.Println;
var d:=a.Where(x-gt;xgt;0).Concat(b.Where(x-gt;xgt;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
250
Смежные вопросы:
