
Прошу помогите. СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 40 СЛУЧАЙНЫХ ЦЕЛЫХ ЧИСЕЛ ОТ 0 ДО 20
И ВЫЧЕСЛЯЕТ сумму чисел,кратных 3. нАЭКРАН ВЫВОДЯТЬСЯ ИСХОДНЫЕ ЗНАЧЕНИЯ И РЕЗУЛЬТАТЫ ВЫЧЕСЛЕНИЙ.

Ответы на вопрос

var a:=ArrRandom(40,0,20).Println;
var s:=a.Where(x->x mod 3 = 0).Sum;
writeln('S = ',s);
end.
Пример:
8 11 7 18 1 9 10 16 5 1 15 17 15 20 12 7 15 18 2 15 0 7 19 4 7 17 2 19 3 11 1 15 1 2 3 4 18 5 7 1
S = 156



Вот пример программы на языке Python, которая формирует массив из 40 случайных целых чисел от 0 до 20, вычисляет сумму чисел, кратных 3, и выводит исходные значения и результаты вычислений на экран:
```python import random
# Формирование массива из 40 случайных целых чисел от 0 до 20 numbers = [random.randint(0, 20) for _ in range(40)]
# Вычисление суммы чисел, кратных 3 sum_multiple_of_3 = sum(num for num in numbers if num % 3 == 0)
# Вывод исходных значений и результатов вычислений print("Исходные значения:") print(numbers) print("Сумма чисел, кратных 3:", sum_multiple_of_3) ```
Программа использует модуль `random` для генерации случайных чисел. Она создает массив `numbers` с помощью генератора списков, заполняя его 40 случайными целыми числами от 0 до 20. Затем она использует генератор списков и функцию `sum` для вычисления суммы чисел, кратных 3, из массива `numbers`. Наконец, программа выводит исходные значения массива и результаты вычислений на экран.
Примечание: Каждый раз при запуске программы будут генерироваться новые случайные числа, поэтому результаты могут отличаться при каждом запуске.
Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.


Топ вопросов за вчера в категории Информатика








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili