
Вопрос задан 23.10.2023 в 13:51.
Предмет Информатика.
Спрашивает Колегов Дмитрий.
ПОМОГИТЕ!! пожалуйста! составьте программу подсчета числа элемента одновременного массива,
превосходящих среднее арифметическое элементов данного массива.

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

Отвечает Махова Ксюша.
Программа написана на PascalABC.NET
// Ниже код:
program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.
// Ниже код:
program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.




Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на Python для подсчета числа элементов в массиве, превосходящих среднее арифметическое элементов массива:
pythondef main():
# Введите массив. Например, [5, 10, 15, 20, 25]
array = [int(x) for x in input("Введите элементы массива через пробел: ").split()]
# Вычислите среднее арифметическое элементов массива
if len(array) == 0:
print("Массив пуст. Среднее арифметическое не может быть вычислено.")
return
average = sum(array) / len(array)
# Подсчет элементов, превосходящих среднее арифметическое
count = 0
for element in array:
if element > average:
count += 1
# Вывод результата
print(f"Среднее арифметическое элементов: {average}")
print(f"Число элементов, превосходящих среднее: {count}")
if __name__ == "__main":
main()
Программа позволяет вам ввести массив элементов через пробел и затем вычислить среднее арифметическое элементов. После этого программа подсчитывает и выводит количество элементов, которые превосходят среднее арифметическое.


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

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

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

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

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

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

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

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

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