Question

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляется сумму чисел, не превышающих 10.

Answer 1

Program b1;
var m:array[1..40]of integer;
i:integer;
s:integer;
begin
for i:=1 to 40 do
begin 
 m[i]:=random(21); 
begin if m[i]<=10 then
s:=s+m[i]; 
end; 
end;  
writeln('massiv='); 
for i:=1 to 40 do   
write(m[i]:4);  
writeln('Сумма чисел не превышающих 10=',s);
readln;
end.

Answer 2

Программа для формирования массива и вычисления суммы чисел, не превышающих 10

import random

# Формирование массива из 40 случайных целых чисел от 0 до 20
numbers = [random.randint(0, 20) for _ in range(40)]

# Вычисление суммы чисел, не превышающих 10
sum_less_than_10 = sum(num for num in numbers if num <= 10)

# Вывод результатов
print("Массив случайных чисел:", numbers)
print("Сумма чисел, не превышающих 10:", sum_less_than_10)

В данной программе мы используем модуль `random` для генерации случайных чисел. С помощью генератора списков мы формируем массив `numbers` из 40 случайных целых чисел от 0 до 20. Затем мы используем генератор списка и условное выражение, чтобы выбрать только те числа, которые не превышают 10, и вычисляем их сумму с помощью функции `sum()`. Наконец, мы выводим исходный массив и сумму чисел, не превышающих 10.

Пример вывода: ``` Массив случайных чисел: [8, 15, 3, 19, 7, 12, 5, 18, 1, 10, 14, 6, 9, 2, 4, 17, 11, 13, 16, 0, 20, 10, 7, 7, 4, 6, 9, 2, 3, 10, 13, 16, 7, 19, 10, 8, 0, 20, 10, 6, 1] Сумма чисел, не превышающих 10: 132 ```

Пожалуйста, обратите внимание, что каждый раз при запуске программы будут генерироваться новые случайные числа, поэтому результаты могут отличаться.