Напишите ,пожалуйста,программы. Очень срочно нужно. 1. Дана последовательность...

Question

Напишите ,пожалуйста,программы. Очень срочно нужно.
1. Дана последовательность чисел.Найти числа кратные 2.

2. Дана последовательность чисел.Вывести первые 2 элемента,которые должны быть чётные.

Comments

Дано n чисел или вводить до нуля?

---

n чисел.

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ArrRandom(ReadInteger('n='),-99,99).Println.Where(x->x.IsEven).
           Println.Take(2).Println;
end.

Пример
n= 15
45 38 43 77 -41 -49 36 98 -29 93 9 34 9 -74 53
38 36 98 34 -74
38 36