Вопрос задан 28.04.2019 в 00:52. Предмет Информатика. Спрашивает Овсиенко Алеся.

Прошу помогите. СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 40 СЛУЧАЙНЫХ ЦЕЛЫХ ЧИСЕЛ ОТ 0 ДО 20

И ВЫЧЕСЛЯЕТ сумму чисел,кратных 3. нАЭКРАН ВЫВОДЯТЬСЯ ИСХОДНЫЕ ЗНАЧЕНИЯ И РЕЗУЛЬТАТЫ ВЫЧЕСЛЕНИЙ.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Билалов Булат.
Begin
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
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Вот пример программы на языке 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`. Наконец, программа выводит исходные значения массива и результаты вычислений на экран.

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

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.

0 0

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

Последние заданные вопросы в категории Информатика

Задать вопрос