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

1. Создание массива А из 10 целых чисел, принадлежащих промежутку (-30; 80): Для создания массива можно воспользоваться различными способами. Например, при помощи языка программирования Python можно использовать следующий код: ``` import random A = [random.randint(-30, 80) for _ in range(10)] ``` В данном примере используется библиотека random для генерации случайных чисел. Функция randint(-30, 80) генерирует случайное целое число в заданном промежутке (-30; 80). Цикл for _ in range(10) повторяется 10 раз, чтобы создать 10 элементов массива A. 2. Вывод полученного массива на экран: Для вывода массива на экран можно воспользоваться следующим кодом: ``` print(A) ``` Этот код выведет содержимое массива A на экран. 3. Вычисление суммы элементов массива, значения которых превышают 30: Для вычисления суммы нужно пройтись по всем элементам массива и проверить, превышает ли значение каждого элемента 30. Если значение превышает 30, то добавляем его к сумме. Воспользуемся следующим кодом: ``` sum = 0 for num in A: if num > 30: sum += num print("Сумма элементов, превышающих 30:", sum) ``` Этот код сначала инициализирует переменную sum нулем. Затем выполняется цикл for num in A, который последовательно перебирает все элементы массива A. Внутри цикла происходит проверка if num > 30, и если условие выполняется, то значение элемента прибавляется к сумме sum. Наконец, полученная сумма выводится на экран.