Опубликовано 5 лет назад по предмету Информатика от KarinaMalinka

Даны 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
1. Ответ
  
  Ответ дан KarinaMalinka
  
  Какая то странная программа
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Странная она (на Ваш взгляд), или нет, но она работает. Допускаю, что вас иначе учат решать, но Вы не то, чтобы версию указали языка, Вы даже язык программирования не указали!
3. Ответ
  
  Ответ дан Аккаунт удален
  
  Установите, как указано, версию PascalABC.NET 3.2, сборка 1363 от 17.12.2016 на свой компьютер и убедитесь, что программа совершенно исправно работает.

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.