
Дан одномерный целочисленный массив K из 15 элементов, заданный случайным образом в диапазоне от
-20, до +25. Найдите сумму всех положительных элементов, индексы которых кратны 3. Вывести на экран сам массив и сумму.

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

z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь






Для решения данной задачи, необходимо выполнить следующие шаги:
1. Создать одномерный целочисленный массив `K` из 15 элементов. 2. Заполнить массив `K` случайными целочисленными значениями в диапазоне от -20 до 25. 3. Найти сумму всех положительных элементов, индексы которых кратны 3. 4. Вывести на экран сам массив `K` и найденную сумму.
Давайте посмотрим на пример реализации данной задачи на языке программирования Python:
```python import random
# Создаем массив K и заполняем его случайными значениями K = [random.randint(-20, 25) for _ in range(15)]
# Выводим на экран массив K print("Массив K:", K)
# Инициализируем переменную для хранения суммы sum_positive = 0
# Находим сумму положительных элементов, индексы которых кратны 3 for i in range(len(K)): if K[i] > 0 and i % 3 == 0: sum_positive += K[i]
# Выводим на экран сумму положительных элементов print("Сумма положительных элементов с индексами, кратными 3:", sum_positive) ```
В данном примере используется модуль `random` для генерации случайных чисел в заданном диапазоне. Затем создается массив `K` с помощью генератора списков. Далее проходится по всем элементам массива `K` и проверяется условие на положительность и кратность индекса 3. Если условие выполняется, то значение элемента добавляется к переменной `sum_positive`. В конце программа выводит на экран массив `K` и сумму положительных элементов, индексы которых кратны 3.


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