
Вопрос задан 31.07.2023 в 14:32.
Предмет Информатика.
Спрашивает Титук Карина.
В одномерном массиве состоящем из 40 элементов и принадлежащих интервалу [-11;5] найти сумму всех
положительных элементов и вывести её на экран

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

Отвечает Верховин Дима.
Var i,s: integer;
a: array [1..40] of integer;
begin
for i:=1 to 40 do
a[i] := random (17)-11;
writeln ('Массив ',a);
for i:=1 to 40 do
if a[i]>0 then s:=s+a[i];
writeln ('Сумма всех положительных элементов равна ',s)
end.
a: array [1..40] of integer;
begin
for i:=1 to 40 do
a[i] := random (17)-11;
writeln ('Массив ',a);
for i:=1 to 40 do
if a[i]>0 then s:=s+a[i];
writeln ('Сумма всех положительных элементов равна ',s)
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для нахождения суммы всех положительных элементов в одномерном массиве, нужно выполнить следующие шаги:
- Создать массив из 40 элементов, каждый из которых находится в интервале [-11, 5].
- Проинициализировать сумму положительных элементов как ноль.
- Пройти по каждому элементу массива и, если элемент больше нуля, добавить его значение к сумме положительных элементов.
- Вывести полученную сумму на экран.
Предполагая, что у вас уже есть массив из 40 элементов, приведу пример кода на языке Python, чтобы выполнить описанные выше действия:
python# Предполагаем, что у вас уже есть массив arr из 40 элементов
arr = [...] # Здесь должен быть ваш массив из 40 элементов
# Инициализируем сумму положительных элементов
sum_positive_elements = 0
# Проходим по каждому элементу массива
for element in arr:
# Проверяем, является ли элемент положительным
if element > 0:
# Если элемент положительный, добавляем его к сумме
sum_positive_elements += element
# Выводим результат на экран
print("Сумма всех положительных элементов: ", sum_positive_elements)
Пожалуйста, замените ...
в переменной arr
на свой массив из 40 элементов, и этот код найдет сумму всех положительных элементов и выведет ее на экран.


Похожие вопросы

Информатика 58

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

Информатика 572

Информатика 1113

Информатика 10

Информатика 32

Информатика 16

Информатика 578

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