Вопрос по информатике:
Даны 2 массива а(5) и б(5). Сформируйте 2 новых массива, в 1ый внести четные элементы из 2х массивов,во второй только положительные.
Пожаловаться
- 04.06.2016 15:49
- Информатика
- remove_red_eye 13671
- thumb_up 14
Ответы и объяснения 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
// Внимание! Если программа не работает, обновите версию!
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
Пожаловаться
- 05.06.2016 02:28
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы