Помогите написать программу. Дана последовательность из n отрицательных чисел, заканчивающихся
положительным числом. Найдите средне арифметическое всех чисел (без учета положительного числа)Ответы на вопрос
var
n,count,sum:integer;
begin
count:=0; sum:=0;
readln(n);
if n<0 then
begin
while n<0 do
begin
sum:=sum+n;
inc(count);
readln(n);
end;
writeln(sum/count);
end
else
writeln('0');
end.
Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!
Конечно! Вот пример программы на языке Python, которая решает данную задачу:
pythondef calculate_average(numbers):
sum = 0
count = 0
# Проходим по всем числам, кроме последнего положительного числа
for num in numbers[:-1]:
sum += num
count += 1
average = sum / count
return average
# Пример использования программы
sequence = [-5, -8, -3, -2, 7]
result = calculate_average(sequence)
print("Среднее арифметическое:", result)
В данном примере используется функция calculate_average, которая принимает последовательность чисел numbers в качестве аргумента и выполняет следующие действия:
- Инициализирует переменные
sum(сумма чисел) иcount(количество чисел) нулевыми значениями. - Проходит по всем числам в
numbers, кроме последнего положительного числа, и добавляет каждое отрицательное число к суммеsum. При этом увеличиваетcountна 1. - Вычисляет среднее арифметическое путем деления суммы
sumна количество чиселcount. - Возвращает полученное среднее арифметическое.
Пример использования программы демонстрирует, как передать последовательность чисел sequence в функцию calculate_average и выводит результат на экран.
Обратите внимание, что данная программа предполагает, что последовательность содержит хотя бы одно отрицательное число и одно положительное число в конце. Также учтите, что код приведен на языке Python, поэтому для его выполнения потребуется установленный интерпретатор Python.
Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili
