1 массив из 11 целых чисел формируется случайным образом в интервале от 5 до 45.Найти...

Question

1 массив из 11 целых чисел формируется случайным образом в интервале от 5 до 45.Найти сумму четных элементов массива .


2 Сформировать массив из 5 целых чисел (ввод с клавиатуры ),уменьшить каждый элемент в три раза .

Answer 1

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

1)

begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.

2)

begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.