
Вычислить среднее арифметическое значение положительных элементов массива А[12] , при том что
Ai-действительные числа

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

var A: array [1..12] of real;
var ai, sum: real;
var i, count: integer;
begin
for i:= 1 to 12 do begin
read(ai);
A[i]:= ai;
end;
sum:= 0;
count:= 0;
for i:= to 12 do begin
if A[i] > 0 then begin
sum:= sum + A[i];
count:= count + 1
end
end;
writeln(sum / count)
end.



===== PascalABC.NET =====
begin
ReadSeqReal(12).Where(p -> p > 0).DefaultIfEmpty.Average.Print;
end.




Для вычисления среднего арифметического значения положительных элементов массива А[12] необходимо выполнить следующие шаги:
Создайте массив А[12] с действительными числами.
Инициализируйте переменные "сумма" и "количество положительных элементов" со значением 0.
Пройдитесь по каждому элементу массива А:
- Если текущий элемент положительный (больше 0), то добавьте его значение к переменной "сумма" и увеличьте переменную "количество положительных элементов" на 1.
Вычислите среднее арифметическое значение, разделив сумму положительных элементов на количество положительных элементов.
Выведите полученное среднее арифметическое значение.
Ниже приведен пример кода на языке Python, реализующий данную логику:
pythonA = [1.5, -2.7, 3.9, -4.2, 5.6, 6.1, -7.8, 8.3, 9.0, -10.4, 11.7, 12.9]
сумма = 0
количество_положительных = 0
for элемент in A:
if элемент > 0:
сумма += элемент
количество_положительных += 1
среднее_арифметическое = сумма / количество_положительных
print("Среднее арифметическое значение положительных элементов массива A:", среднее_арифметическое)
В данном примере массив A содержит 12 элементов с действительными числами. Программа проходит по каждому элементу массива, суммирует положительные элементы и подсчитывает их количество. Затем она вычисляет среднее арифметическое значение, делая деление суммы на количество положительных элементов. Наконец, выводится полученное среднее арифметическое значение.


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







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