Надо, 11 класс 1. дан целочисленный массив из - вопрос №854534411120 от Sanya030814 16.07.2022 13:25

Question

Информатика: Надо, 11 класс 1. дан целочисленный массив из 20 элементов. элементы массива могут принимать целые значения от 0 до 1000. опишите на языке или на одном из языков программирования алгоритм, позволяющий найти и вывести минимальное значение среди элементов массива, которые имеют чётное значение и не делятся на три. гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не кратно трем. 2. опишите на языке или одном из языков программирования алгоритм получения из

Sanya030814 · Answer

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

begin
var a:=ArrRandom(20,0,1000); a.Println;
a.Where(t->t.IsEven and (t mod 3 <>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 -> t<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