
Вопрос задан 30.07.2023 в 12:49.
Предмет Информатика.
Спрашивает Ефимкина Вика.
Массив из 15 целых чисел. На отрезке от [-10;10] а) Вычислить количество положительных элементов;
б) Вычислить сумму положительных элементов массива; в) Вычислить среднеарифметический элементов стоящих на четных местах.

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

Отвечает Гусев Антон.
Var m,j,r,n,sum,sumI,k:integer;C,b:Array[1..15]of integer;sr:real;Beginfor r:=1 to 15 do beginC[r]:= random(20)-10; write(C[r]:4);if C[r] >0 then begin n := n +1;sum:= sum + C[r];end;if r mod 2 = 0 then begin k := k +1;sumI:= sumI + C[r];j:=j+1;b[j]:=C[r];end;end;writeln;writeln('Kоличество положительных',n:4);writeln('Cуммa положительных',sum:4);writeln('Cуммa элементов стоящих на четных местах',sumI:4);writeln('Cреднеарифметическое элементов стоящих на четных местах',sumI/k:4);foreach m in b dowrite(m:4);end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для решения данной задачи, следует выполнить следующие шаги на примере массива из 15 целых чисел:
python# Предположим, что у нас уже есть массив с 15 целыми числами
arr = [2, -5, 7, 0, -8, 4, 10, -3, 6, 1, -9, 8, 3, -2, 5]
# a) Вычислить количество положительных элементов
count_positive = sum(1 for num in arr if num > 0)
print("Количество положительных элементов:", count_positive)
# б) Вычислить сумму положительных элементов массива
sum_positive = sum(num for num in arr if num > 0)
print("Сумма положительных элементов:", sum_positive)
# в) Вычислить среднеарифметический элементов стоящих на четных местах
even_elements = arr[1::2] # Извлекаем элементы с четными индексами
average_even = sum(even_elements) / len(even_elements)
print("Среднеарифметическое элементов на четных местах:", average_even)
Обратите внимание, что в Python индексация начинается с 0, поэтому элементы, стоящие на четных местах, имеют индексы 0, 2, 4 и т.д. (индексация массива по четным индексам реализована срезом arr[1::2]
).


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