Question

Создать программу которая создает массив из восьми случайных чисел с промежутком (-20,11) и вычислить сумму чисел<7

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(8, -20, 11);

 a.Println;

 Println('Сумма значений, меньших 7, равна ',

     a.Where(t -> t < 7).Sum)

end.

Пример

-13 -19 2 7 11 9 -7 10

Сумма значений, меньших 7, равна  -37

Answer 2

var i,s:integer;

a:array[1..8] of integer;

begin

randomize; s:=0;

for i:=1 to 8 do

begin

a[i]:=random(-20,11);

if a[i]<7 then

s:=s+a[i];

end;

writeln(s);

end.

Answer 3

Для создания программы, которая создает массив из восьми случайных чисел в промежутке (-20, 11) и вычисляет сумму чисел меньше 7, можно использовать язык программирования Python. Вот пример такой программы:

pythonCopy code
import random

def generate_random_array(size, low, high):
    return [random.randint(low, high) for _ in range(size)]

def sum_numbers_less_than_seven(arr):
    return sum(num for num in arr if num < 7)

if __name__ == "__main__":
    array_size = 8
    lower_bound = -20
    upper_bound = 11

    # Генерация массива из восьми случайных чисел в промежутке (-20, 11)
    random_array = generate_random_array(array_size, lower_bound, upper_bound)
    print("Сгенерированный массив:", random_array)

    # Вычисление суммы чисел меньше 7
    result_sum = sum_numbers_less_than_seven(random_array)
    print("Сумма чисел меньше 7:", result_sum)

Код выше создаст массив из восьми случайных чисел в промежутке (-20, 11) и вычислит сумму чисел, которые меньше 7.