
Помогите написать программу. Дана последовательность из 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