Помогите, пожалуйста, безотлагательно надобно, 11 класс1. Дан целочисленный массив из 20

Помогите, пожалуйста, безотлагательно надобно, 11 класс

1. Дан целочисленный массив из 20 частей. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на российском языке либо на одном из языков программирования алгоритм, дозволяющий найти и вывести малое значение среди частей массива, которые имеют чётное значение и не делятся на три. Гарантируется, что в начальном массиве есть хотя бы один элемент, значение которого чётно и не кратно трем.

2. Опишите на российском языке либо одном из языков программирования метод получения из данного целочисленного массива размером 30 частей иного массива, который будет содержать модули значений частей первого массива (не используя специальной функции, вычисляющей модуль числа).

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,0,1000); a.Println;
  a.Where(t-gt;t.IsEven and (t mod 3 lt;gt;0)).Min.Println
end.

Пример
897 808 642 381 727 241 898 600 945 170 613 216 651 884 54 648 94 403 516 509
94

----------------------------

begin
  var a:=ArrRandom(30,-50,50); a.Println;
  var b:=a.Select(t -gt; tlt;0 ? -t : t).ToArray; b.Println
end.

Пример
-35 13 -17 -31 -16 -26 19 -3 -15 50 7 -29 39 1 48 14 7 23 3 -14 -8 -17 -32 -29 -9 28 -4 12 3 5
35 13 17 31 16 26 19 3 15 50 7 29 39 1 48 14 7 23 3 14 8 17 32 29 9 28 4 12 3 5
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт