Question

3. Создать массив А из десяти целых чисел, принадлежащих промежутку (-30; 80). Вывести полученный массив на экран. Вычислить сумму элементов массива, значения которых превышают 30.

Answer 1

1. begin
2.    var arr := SeqRandomInteger(100, -30, 80).ToArray.Println;    
3.    arr.Where(x -> x > 30).Sum.Println;
4. end.

PascalABC.NET

Answer 2

Родной мой! СПАСИБО :3