Question

СРОЧНО

В массиве из 20 элементов, введенных случайным образом из диапазона [-1000; 1000] определите: 1: сумму нечетных чисел меньших 30. 2: наибольшее число кратное 3.

Pascal !

Answer 1

Ответ:

PascalABC.NET

begin

 var A := ArrRandom(20, -1000, 1000);

 //1

 A.Where(x -> (x < 30) and (x mod 2 <> 0)).Sum.Println;

 //2

 A.Where(x -> x mod 3 = 0).Max.Println;

 

end.

Объяснение: